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LA REVOLUTION EST 
EN MARCHE ! s°^ 



EDITO 




programme et de le voir "tourner". 
vous vous poser une deuxieme 
question, tout aussi judicieuse : 
"Dans quoi vais-je emporter mon 
programme, point de caddy en vue, 
pas de cassettes, peut-etre ces bi- 
zarres fentes beantes ?" Et vousavez 
raison. ce sont bien ces fentes qui 
vont vous permettre de charger vo- 
tre programme sur une CARTOU- 
CHE, oui vous avez bien lu : sur une 
cartouche de ROM et de plus, cette 
cartouche est RECHARGEABLE ! Le 
litre qui fait allusion a une revolution 
sera pleinement juslihe quand vous 
saurez que ces cartouches de ROM 
rechargeables sont prevus pour des 
engins aussi differents qu'un VIC 20. 
un IBM PC JUNIOR, un Texas Ti/99. 



Un ordmateur central quelque part 
en region parisienne cache dans ses 
memoires des logicieis : des jeux 
d'arcades. des jeux d'aventures, de 
strategies ; des programmes utifitai- 
res, des educatifs. des didactrciels, 
en anglais, en francais. en americain, 
plus de mille logicieis en etat de 
marche. 

Un beau matin, lasse par le dernier 
jeu que vous avez achete quelques 
semaines plus tot, vous entrez dans 
la boutique de voire marchandde lo- 
gicieis prefere et la, coince entre un 
APPLE et une console ATARI, vous 
apercevez cetie dr&le de machine : 
elle ressemble a un ordinateur, son 
ecran a la couleur d'un ordinateur, 
son clavier numerique est celui d'un 
ordinateur. et pourtant - les dix orifi- 
ces qui ornent sa face avant vous le 



e penser - ce n'est pas un ordi- 
nateur "Mais alors, si ce n'est pas un 
ordinateur, qu'est-ce ?" - Vous po- 
sez-vous la question. Et bien Mesda- 
mes et Messieurs, en veriteje vous le 
dis. c'est un ROMOX ! 



Et ce ROMOX va vous permettre de 
communiqueravec I'ordinateurdont 
nous parlions tout a I'heure et de 
charger un des milles programmes 
disponibles. L'ecran du ROMOX va 
vous servir a choisir avec un menu un 
des programmes qui vous interesse. 
va vous en faire une demonstration 
en couleurs et en graphisme et vous 
permettra de decider en pleine con- 
naissance de cause quel est le logi- 
ciei que vous desirez ramener chez 
vous. 

Arrive a ce stade, deja interessant 
puisqu'il vous permet de choisir un 




tous les ATARI ycompris les consoles 
dejeux, un commodore 64. une con- 
sole COLECO et un ordinateur au 
standard MSX ou lefutur APPLE C (C 
pour cartouche !). Et voussavez aus- 
si bien que moi, qu'il est beaucoup 
plus agreable pour charger un pro- 
gramme d'enficher simplement un 
module, dont la mise en ceuvre est 
immediate, plutdt que dereliervotre 
ordinateur a un lecteur de cassette, 
d'attendre son chargement. de le 
lancer en "RUN", etc. 
Voila. vous savez presque tout sur ce 
fabuleux engin qui va probablement 
changer pas mal de chose dansle lo- 
giciel francais et mondial. 
II sera sur le marche francais des le 
printemps de cette annee et plus 
d'une centame de ROMOX seront 
mstalles chez les principaux distribu- 
tees francais. 

Reste la question des prix : faisons 
les comptes puisque je possede 
quelques prix indicatifs. Le module 
de ROM vierge. livre avec le catalo- 
gue complet des logicieis disponi- 
bles et un "abonnement" qui vous 
tiendra au courant tous les mois des 
nouveaux logicieis sortis coute entre 
120 et 200 francs TTCselon sacapa- 
cile (4,8 ou 16 K). Muni de cette car- 
louche vierge vous devrez debour- 
ser pour charger un programme de 
90 a 120 francs pour un logiciel dejeu 
etde 200 a 240francs pour unutilitai- 
re "costaud". Plus proche des prix de 
la cassette que du module, non ? 
Encore quelques mois de patience 
et vous pourrez acheter vos ROM 
ROMOX ! ■ 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page inteVieure) 



ATARI, probablement a cause de sa 
politique de prix, n'a pas vendu de 
grandes quantites de 400 et 800 de 
la premiere generation. C'est pour 
cette raison que vous ne I'avons pas 
inclus dans les premiers numeros de 
i'Hebdo. Les nouveaux 600. 800 et 
1200 XL qui vont bientot etre com- 
mercialises, non seulement ont des 
prix raisonnables, mais, en plus, sont 
compatibles avec I'anciennegamme 
et. au vu des logicieis et desperiphe- 
riques devetoppes par ATARI, vont 
sans doute connaitre un succes me- 
fite. 

Alors, que pensez-vous que va faire 
votre journal prefere : ATARISTES de 
France et de Navarre, a vos claviers ! 
Votre becane preferee sera la des le 
numero 20. 

Gerard CECCALD! 
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ORIC1 Telecran 
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MZ80 Contre-attaque 
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PC 1211 Everest 
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PC 1500 Caitah 

Olivier DEPRIESTER Page 14 

ZX81 Reussile 
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TI99 4/A<b.s.) Puzzle 
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TI99 4/A{b.e.) Superman 

Alain LECCEUVRE Page 1 1 
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HIPPOREBUS trouvez I'expression qui se cache dans la B.D de I'hippocampe. Decompose en trois syllabes dans les trois premieres cases, le "tout" a evidemment un rapport avec I'mlormatique 
(solution en page inteneure) 
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omagno 3.50 DM - Belgique 55 Frs - Canada 2,50 $ - Luxembourg 57 Frs - Suisse 3 Frs ■ 



SURVIE 



Jeu d'action sur COMMODORE 64 qui enverra vos chers 
lecteurs dans une lointaine galaxie dans laquelle ils de- 
vront lutter pour obtenir la chose la plus importante qu'ils 
peuvent esperer : la Liberte. 

lis sont pris dans un univers extraordinaire, tres en avance 
sur le notre, gouverne> par I'empereur du mal et sa terrible 
"lune noire" Ce jeu necessite un COMMODORE 64 sans 
extension sauf un joystick qui sera branche sur le port 2. 

Frederic MIRAN 

Ce programme est forme de 3 epreuvesdifferentes. La premiere etape 
est "tron" Deux joueurs luttent 1'un contre I'autre dans des sortes de 
motos. A Tissue de cettepartie.il nerestera plus qu'unjoueur en etatde 
poursuivre sa lutte. La seconde epreuve est "star Wars" au cours de la- 
quelle le joueur devra detnjire 10 vaisseaux en 1 minute 30. 
Si vous reussissez, alors seulement vous pourrez rentrer chez vous. 
Mais ce ne sera passimplecarilfaudrafranchirune zone de meteorites. 



5 GOTO 10008 
6 

7 PEM 

8 REM IRON 

o p t n 

lo printtt 

pftlHl >«»» mMtHHITRO HWW »MW»WI«MW ' 

12 PPItiT-HimWyUtl* UVUTRE HUM S.V.P." 

13 INPUT J I » 

14 F-RINT"M*W»J0UEIJR 2.Y0fRE NUM S.V.P." 

15 IHF0TJ2* 

20 PRIHT":»M*WIW!»ffilMm»»M»»»M»»i'i.iiUiE3^1-5.»" 

40 IFTEXOQRTEX>5THEH38 

41 IFTE/:=nHEtiIE*="Wwul0e* 

42 IFTEX=2THEHTE*-"000280* 

43 IFTEK=3IHEHIE»=' 

44 lFT£>.=4THENr£*=' 

45 IFTEX-STHENTE*-' 
SB »!*■' "" 
69 fi=l 
SI S-2 

62 D=19 

63 F=21 
66 
67 REM— 

S REM 



-HFFICHflGE TERftrtlN- 



63 REM 

re PRiHT"3r 

so fr i nt '■ wy.vwiWAVWrt'Wrt'rt'WWWWrtvr 

85 FGRQ=1TU21 ■PftlHTTft 

30 PRlNrrTYAW^r^.V^WiV/^WiW^WWAViWA" 

j-.: PQKE1983*127 

93 P0KE56255.I4 

100 frint-o/ i<» ";sc<i> 

181 PRINT ~">M 
192 PRINT": 

103 IFTiJ^TESTKE'isO* 

194 

105 REM— 



-DEPLHL-EI1ENT JOUEUR 1 



lie G=PEEK<197> 

139 IFG=64THEtll'50 

lie iFG-57Thenft=i ourms* 

120 ir. J =53THENFi=2 GOTO150 
136 IFG=0THENrt=3 0010158 

140 [FG-2THEWM 
159 IFfl=lTHENU=D-l G0T0I69 
16a IFft=2THEND=I>+l ■Gui-ji-sj- 
lfy [FH=aTHEHB»D-4e:G0T0189 
186 IFf»=4THENB-D+48 
189 IFkEt^ ■ 1564+1}; 332THEN408 
196 
131 PEM 

192 REM MFFlCHHGE HO TO 1 

193 REM 



-BEPLW.EHENI JOUEUR 2 



200 H=PEEJ«36336j 

II H-I27THEN230 
..-: t FH=l23THEHS=I 0010250 
22f IFH=113THEN3=2 GGTG250 

239 IFH-126THEHS-3 QOTO230 

240 IFH-125THEHS-4 
250 IFS-1IMEHF-F-I 6QTG23S 
269 IFS«2THENF"F*1 G0TG238 
279 IFS-3THENF-F-40 GOT 0238 
269 IF8-4THENF-F+40 
23E IFPE£K< I304+F i :>32THEH500 
289 

299 REM 

291 REM FtPMCHFiOt MOTO 2 

232 REM 

293 PuFEI5w4tF,J60 

234 POKE55776*F,l 
295 GOTO 190 
296 

297 PEM 

390 PEn- ■ ■ -ACCIDENT JOUEUR 1 

3?? REM 

408 FWEl504+B>42 

43? P0rE55776+D.l 

41« SC<2;*SC<2/+10 

410 IFfEE' ■-L.-.. ;;-,-■ ., 111TH6M415 




cow 



wyooo^ 



6* 



69.? rem 

.■■j'j PRINT'S" 

?I8 PRIHT"«MMWnP>mn»»EGi : iL.lTE!7ij>JO LEvtt Re^OHMEHCEf I 

720 'MrnOlMI ir i 

730 GETFIJ 

735 IFfi»O"U'THEN730 

740 GOTO 29 

300 PRINT"** PRET R CGMBHTTRE UNE SECOHDE FOIS 

POUR VOTRE LIBERIE, ".JO*,"?" 
310 CETfl* 

315 IFR*O"0"THEH918 
994 : 

335 REM**t****M*«**«********t«*«*M*t* 
996 

337 REM 

338 REM STAR MflRS 

333 REM 

1999 PRINT-IT 

1005 pRiNT ,, r)»»****t*«***»**33THR wars* **»***»**»**<** ■• 

1007 PRINT , '"»»*t»*»»***3iJP.VIE 2EME PfiRTIEtt*»»*»**»* 

1010 FRIt!T"*V0U5 HLLEZ bfcVuIR HHIIirEHMNT MGNIRER VOS" 

lOtU PRINT" TALENTS DE TIREUR,COHBRTTflNT RESTflUT!" 

1030 PRINT"*] V0U3 riLLEZ DEVOIR HfcniF.E nu llGiNS 19" 

10-tu PF.iNr* HPPflREJLS HE LH GHRDE BE LfH CELEBftE " 

1050 PRHIT"« la-UIIE* aiOIREB" 

10b0 PRINT"J4U>P»MI»»MMK]J4.;u'>i.iii:K 2"" 

1070 PRINr"JW»»M»i»»»HI^IE:. V0U3 PRET ?" 

1989 GETfiJ 

1035 IFfl»O-0"THEH198e 

1.J--0 r-R;:i7''r*-'?Wi'K-:WJJ«MI»«»Hl ;! :r.j ^c DIrr ILIJLIE' l-.-/"" 

1100 GETH* 

1105 flK=V8L<fi$J 

1110 IFH^<lORa^>3THENU09 

1120 N0=15-FK 

1280 TI*="800800" 

1S0U PRINT"."- 

1308 Z=15^i 

1910 /i=55735 

2899 PRIHT"aSCORE:";SC 

2601 PRINT --*>*»P*»»»»»»»»»»»»»tTEnP3 MIS 

2002: IFTIJ^ = "0001jlj ,1 THEN40B0 

2803 ■ 

2004 REM— 

2005 REM— 
iy^c. REM— 



-BEPLhCEMEKT joueur- 



203? 

2040 

2850 

2936 

2337 

NEXT 2998 



319a 
3103 
3105 
3110 
3120 
3133 
5140 



C=PEEK<56336/ 
IFC=127THEN3808 
IFC«I19THENV»V+] 
IF"C=123THENV=V-1 

lFG-126THENV=V-49 
IFC=125THENV=V*40 

REM 

rem deplmlehent vnisSEflu— 

B»IHT<HI»RHIK1J>+1 

iPi;.t.iHEN3100 

IFE=1THENN=N-1 

iFt= t rHENN=H+l 

IFB=3THENH=N-40 

1FE=40RI;=5ORL=6THLNN-H-4b 

POKEZ-1^32 

P0KE2-32 

POKEZ+1-32 

Z»1643+H*V 

Z=55315*N*V 

IFZ :i 144THENN=N+40 G0T03I 10 

IFZ>2022THENM*O V=tf GGi"0311y 




3137 
3133 
3133 

j.200 
3201 
3202 
3205 
3296 
3207 
^0£ 
3210 
3220 
32 iu 
3249 
i25u 
J260 
i236 
3237 
J298 
)299 



-HFFICHriGE VI3EUR- 



PRIHT"fl 
PRINT u H»»»HW»Mmm- - 



POJ E2.81 

P0KEZ-1<197 

P0KEZ+1.II3 

POt L... 14 
PGKEX-1.14 
P0KE>;*1. 14 

REM 

fcErt TIR 

FEM 

IFPEEK<56336>011 1 rHEH2999 



3310 PRINT "fl 



■.-.■■■■•»»»»»i 



I n=7-W=33 
i PRINTTfiB<H>' 

) FRIIHTmB'.UV 



U I U 



49t> 

-_■. REW- 



498 REM rvXIDtm JijiJEUP 2- 

433 REM™ 

509 FOI E1594*F.42 

510 SC<I -'-''.' 1 "10 

SIS in EEI ■ 56336 ' ..111 IHEN415 
■ ■ 
396 

597 REM 

999 PEN VHHIUUfc<> 

399 REM 

699 iRitif.j" 

601 IFMMK*2(HKNHH»99 

6(U 1F8C< I. ■,V,:±- 1 HEN Jul- IU 

603 1FSU' it. ->-■ i i fri£MJG*-J21 

604 li -,'.• 1 '■SCt2>THEN799 
693 PfilHI ■■: 
-,.■ ■ RQ»1T013 

.:■., ITO109 

623 :iL..iu 

639 Pul E33281 .241 

648 FORU«1T0198 

643 ne.:[ij 

659 POI E33281 . i ^.» 

669 NL..I 

669 FHrti-»M»M»»MMW 

870 QOTO900 
696 



VMlNi'iJtUI- E-l- 



3489 
3410 

3430 
J496 
3437 
3498 
3435 
3380 
3510 
^520 
353H 
JS40 
3560 
J578 
JS72 
3575 

3996 
39S; 

J998 

4008 
4003 
4910 
4020 
4939 
1049 
4039 
I860 
4878 
1980 
i99< 
1093 
4ieei 



IFH-19THEH3400 



lEPtEl '.144-1, .. ;2IHEN3500 

RRINT'TJ" 

GG1U2000 



REM 

P0KE1444.42 
F0RQ-IT038 
P0KE5328U1 
P0KE93281.6 

NEXT 

3C-3C»1 

V-0 



4 1 1 e 

1 1 28 
■. ; >- 
4996 

1??7 r 

4998 r 



REM 

REM SCORE IH8UFFISflHT 

REM 

1FW1X-3THEHI8000 

iF:-C.3IHENCLR UUTIJ5O0U REM— i'-'JPE >'JK 1 :.»)N I ■ 
PftlHT"3' 

PRINT"* VOUS H'BVEZ Pmj RtUobl h mbmIIFE Lm" 
PRIHT'H MftJGPire DE LM FLUTTE DE Lrt GELEBRE" 
it-iUi u »LUNES 8N01REW 

PRINT"* UH UROISEUR DE LH FLU lit [MPERIfiLE ' 
PRINT'« VOUS m DfciROir » L HlDt DE SE8 " 

PRIN1 'I CHNONi LftitF-a 

prihi mmwHnmmwouLez vous rejouer?" 

OETM 

[Fft« [HENRWi 

.rn»<>"N FHEN4A ■ 

PRINT'O 

:lp 

EM, 



.tluN METEOI! 1 n.... 



5030 

5060 
5070 
5889 
5883 
VJ30 
5031 
5032 
5893 
5034 
5035 
5036 
599! 
5998 
5033 
510£' 



PRINT' BfcHVO/VOUS ETE= ON RS.VDUS Fr/EZ 

GflONE m THB(5e>"JC BHTTAILLES MHI5 P«5" 

PRINT'-* LFi OUENRE 

PRINT"]! VOtfo clEi HhlHTEilrtn LIBFE MmIo POUR ' 

PRINT"* RENTRER LHEZ VOUS.yOUS BEVEZ rRRVERSEf 

PRINT-a UN (..Mra-iF DE HE lEOF.l TEi" 

PRINT"* i-jNUE CHFf*.E'" 

rhini r;fj»M»*»»»»»»l;£!E5 Wilrii 

GETftJ 

IFfl*C "0"THEH^99U 

l-Lft 

f tilt ♦♦*•♦♦♦».♦♦**♦«»•*« f... 



REM MFFICHFiGE COULOIR— 

PRINT"3" 

FC'RH=lTij t ^ 
PRINT lrtin:28^«- 
NEXT 



5333 REM KEPLHCEtlEtU VHI33EFRJ 

6006 S=S*1 

6G04 IF3=509THEH709u 

6005 Q-PEEK<3633€) 

6O10 1F^=123 THEN M=M-1 

6015 IFH-:0 THEN H=9 

60i.'0 1FQ=113 THEN M=M*1 

6>325 IFW>13 THEN U=19 

6026 IFS>S01THEH7t09 

6030 IFPEEK<l»24*irf>w32fiNI[PEEKt'i024tHjO9OTHEH62e0 

6040 P0KE1824+H*99 

6050 Fa;E55236+W, 1 

6096 • 

6037 REM- 



6u3Z REM— 
6033 REH- 



-HFFlCHrtGE METEORITE- 



6108 E=INT(21*RH0(1)> 

6110 PRINTTfiBtE^"«" 

612U PRINT ' >»»»>»»»»*»>»»f- ' 

6130 GOTO6088 

6196 

6197 REM 

6198 REM RENCONTRE FtVEC HETEORITE— 

6133 P.EH 

6200 1FMN/;=4THEN1W0O0 

6203 P0I,E1U24+W,42 

6205 P0KE55236+W, 14 

6210 PRINT'3" 

6220 PRINT"* DOMRGE D'ftVOIR ETE DETRUIT 31 PRET DU" 

6230 PRINT"* BUT" 

6240 PRINT"W»WUB«MW« VOULEZ VOOa REltNiER VOIRE GHhH-.E ! 

6250 GETft* 

6255 IFH*="N"THENFRINT"n" GLft END 

6260 IFn*O"O' - THEN6250 

627& CLR 

6280 RUN 

630O GOTO6300 

6996 ' 

6397 REM 

633S REM HFFICHmGE HHHGmRD 

699a REM 

7080 Ztl) = IHUllS#KNlAlJ,, 
7010 PRlHTTfiB<Z<l>>"a *_3 ■" 
7015 PRINT "n"Tf»<28>">" 
7029 PRINTTfiBCZtl))"* * B" 

7025 PRIHT-T'THB^ZO)"*" 

7026 PRlNr'MMMUMMHMMI-' 
?830 S-8*l 

7037 REM 

7033 REM FlPPROCHE BRSE 

7099 REM 

7199 S«S+1 

,'liU iM^MMP. »»»l 

, 120 IFPEEI C1024*M>«91ORPEE) (1024+HJ"1S8OR 

PEEK' 1024+H)*t02TMEN6208 
71J9 IFPEfcKtl024+U>-189THEN72ee 
. 158 POI E1024*N<90 
7160 FUKE552^o*W, 1 
7178 GOTl ■...■ ■ 

7200 POKE1024*N*90 
7218 PQKESS296+M, i 
7220 i ORJ r--l [0590 ME.. I 

?997 REM - 

. Jj*3 --til REUSS1 

r999 FEU 

8993 PRINT"T 

6019 PRIMT ,1 W«l«»»Mi»li:t.MViJ,VUUi MVtJ H.i.',- 1 

■:u2u FPI)lfrtO»FflITES ONE PRIERE RUUR ■/■jiFt PftUVRE' 

oijAi I-I-1MI-W i.MIlMKHUE ML.FI PijIJR tJHL NOBLE CflUS£" 

■ yiy i-MMiftl FE1IEPI.1E2 Lt UEL DE VUUs Hv'uih nlLE 

3050 l-FINr , -.Mi«fi««l U nulKEa PERSUNNLi VuUDF.tUENT ELLEs" 

3860 PRINT"* TENTER LLUR '.HnM' E " 

.,0.0 ijLtrtt IFFi*-"0"THENRUN 

8088 inn :>"N"TMENTM?tl 

B099 r m:i|-;j- 

9100 .RitirimniHWM FROUSSHRirar 

3110 END 

9996 

3337 REM 

333S REM UH10N DE JEUX 

3333 REM 

10O00 PRINT""*" 

100IU RRINI"«««lffW0ULE2 VUU'a ' 

10020 PR1NT"**-£1 CONMENCER Lm LUTIE" 

10030 PRINr"*l>-h2 V0U3 ENTRHIMEK N TROH" 

IO040 PRINT "«B~t3 V0U3 ENTRHINER m ST* N/1RS" 

10050 PRINT "«M-t4 VOui ENTRniNER h METE0R1IE3" 

10055 FF:niT-««-£5 PtRRElER" 

18068 GElrt* 

10065 MMX-VflLCft*) 

10970 lFnn;:.iijPMir:,5iMtiM00t:ij 

100-...' iM'ir. li>MI1>.'=tJHEN20HtJU 
100J0 IH«1:.= jTMtN1800 



,JGS 



1999? PEM-- 
19998 REM— 
; «.■ ■/ Rl M 
20880 PRINT 
20003 ' Kim 
20010 PR INI 
20020 Fkliil" 
„U030 PRINT" 

Dt 
20040 PRINT' 
20058 PRINT' 
20060 i F nn 
20078 i f INT' 
20888 PRINT 1 
20090 PRINT' 
28108 i RINT' 
t yilO PRINT' 
20120 PRINT' 
20123 M-IM1- 
^i\ 38 PRINT' 
20133 PRINT' 
20148 PR1N1 
28138 PRINT' 
20160 bETAI 



5THENEHS 
-—PRESEHTflTION TRON- 

n" 

DM**+ ************ *SUI 

vous t its 2 HurniHS ti 

MONDE EXTRR0RD1I 



LUTTER LUN I 



WTRE 

WJh 1 1 /R6 



RISONNES DflKS 
i EJES HMENES 

HUT RE HUN 



« ILPL IHMIL alKWI". ■.'...■j j EitL- ENFtRMEi ' 

DflNfl DES M3RT6S Dt Nulua uui lit PEUVENT" 

III S RRRETERjN] IFtlMLK.LIi n.Mi^.iNl- 

VOWb P0KME2 ON MUR INDESTRUCTIBLE ORRCJE" 

MU'-UUL V'JU'J DL'.T-E.: EMFPl-.UIIMER VUlRL" 

RDVERSfllRe Li PhUVUUUER jm DtslRUt i ION" 
HTIEIITlUN II VUIRL PRUPRt (TOR ET " 
iiu,-; BORW>* 

'* it DtL " 



JOUtOP 1 



"U"THtN20160 



Xim JOUEUR 2 110" 



DES07 



LesutilisateursdeT07passionnesparlelangagemachine 
trouveront, grace a ce programme, de quoi reflechirsur 
les routines internes de cet ordinaleur. II n'est pas interdit. 
bienau contraire.de concevoir, a partirdece programme, 
un programme assembleur. II va sans dire que ce desas- 
sembleur fonctionne pour tout ordinateur equipe d'un 
6809. 

Yves RADENNE 
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tse rew ks if x«-"rrT" then 200 

130 G03i.e 340 

140 POKE 40060*1. X 
136 1-1*1' C0T012a 
200 RESTORE 700 
229 1-0 

238 RERD X* IF W--XXX" THEMi3900 
240 GOSUB 309 

239 POKE 49574+ I, X 
269 1-1*1 GOTO 230 
265 ' CODES HE>!fl 

300 CWfl 91.2£.3ft-01-48O1.3SO1.4?,31.3 
7. 01. 4F. 01. 5F, 91. 43, 01,33. 91. 19. 01 ,4fi, 01 

. 5ft. 01, IE. 02. 4C. 01. 5C, 91. 44, 01. 34. 01-30. 
91.40.01.39,91. 12, 01. 34, 02, 36. 02- 35, 02, 3 
7. 92. 49, 91, 59, 91.46,91,36.91 .ID. 91- IF. 92 

. 4p. 91- 50. 91. 38. 91, 39, 91, 3F, 91,13. 81. 3C. 

02 

510 DAT* 92.1C89,02.C3.O2,8B.92,CB,02.C 

3, 03, 34, 92. CA, 92. 1C, 92. 85, 82, C5. 92, 31, 02 

,C1,92,3C.93,S3.92.C3.92.3S.92,C6,92.CC. 

93.C£.83.3E.03.SR.92.CR.02.1i : i.a2.32,92.C 

2, 92. 80, 92, C8. 92, S3, 93 

529 DFiTPi 83. 13. 24, 02. 23. 92, 27. 82. 2C. 82, 2 

E, 92. 22, 92. 2F. -32. 23. 02, 20. 02. 26, 02, 26, 02 

.2ft. 92. 29. 92. 21 .92. Sl>,92 ■ 2^.132. 29, 02 
525 OftTR 16,03.17.83 

538 ORTfi 04.2C.99,02.D9.02,9E,02,OG,92.O 
3.82. 94, 82. D4. 92. 95. 02. 97. 92. 95, 02. 05. 92 

.8F.82,91.92,D1,92.9C.O2.93.92.8B.02,33. 
e2.O8.e2,eC.?2.9T",32.:^..-D2,DC,02,OE.82,3 
E. 02. 84. 92. 00. 02, 9fl. 82, OR. 82, 99. 92, 96. 82 

■92.92.02.92,97,92,07,02 

533 ORTft 00. 82. OF. 92, 3F. 92. 30. 92, D0, 82. 
93.02, 00, 82. 9E, 82,90. 82 

548 ORTR 85.2C.B9.93.F9.93.E8.93.FB.93.F 
3. 93. 94, 03. F4, 93, 73, 93, 77. 93, B5. 93, F5, 83 
7F.33.Bl.<??.F1.92..BC.03.73.93.7ft,03,B8. 
83,F3.93.7C.93,B6,a3.F6.33.FC.93.FE.83,B 
E. 03- 74. 03- 79- 33 -BR. 03. PR. 93. 79, 03. 76. 93 

.B2.03,F2.03.B7,03.F7,03.FD.03.FF.03.BF. 

93.B8.83,F0,93 

553 OftTfi B3. 33. 70.83. ?E. 03. BO, 33 

569 ORTR 96, 39, R5. 02. E9.02.RB.e2,EB. 82. E 

3,@2.R4.g2,E4,92,6S.02.67.92.R5.92,E3.02 



.6F,92.fll.92,E1.92.RC,02.63,02.6R,92,R8, 

02.ES,92,6C.92.R6.92,E6,02,EC.O2,E£,02.R 

E, 82. 32. 02. 33.92.38.82.31.82.64.92.68.92 

.fifl,02.ER.O2:63.92:66,02.ft2.02.E2,02,R7, 

82- E7. 92, ED. 92 

565 DRTR EF.02.RF.O2.R9.92,£0,O2.R3.82.6 

D.02.6E.82.RD.02 

578 ORTR 11. 01. 3F. 02. 12. 04. 93, 93, SC, 03. C 

E.83.8E.03, 13. 9F, 24, 04, 25, 04,27.94,20,04 

, 2E. 84, 22, 04. 2F, 04. 23. 94. 2D. 04. 29,04, 26, 

84 , 2R, 04 . 2 1 . 94 . 28 . 04 . 23 . 04 , I 4 . 86 , 93, 83, 9 

C. 03, DE, 93. :-E. 93. OF. 95. 3F, 93. 15,96,63.84 

. 8C . 94 . FE . 04 . BE . 04 . FF . 94 , BF , 04 

580 DflTR ie,96,R3.03.RC,O3,EE.03,RE.93.E 

F. 93, fiF. 03 

585 ORTR 21. 91, 3F. 02. 22, 02. 5C, 94, 33, 04,2 

4, 82, 9C, 03. 33. 9i.25-S2.se. 94. S3, 84, 26. 82 

RC.93.fl3.03.TTT 

SS3 ■ FFiXPRMHE MACHINE 

700 DflTR B6.F5.8C. 81. 10.26 .93.86. F5, 3D. 3 

E.9E,96,28,9F,31, 1 1,26,83.B6,F5,3D,3E.3E 

,5E:29.03.3E,9C.40.E6,S9,F7.9F,62,E6,S8, 

F7.9F,64.fll,81,27.05,5fl.26.F9.20,ED.F7,9 

F.61.F6,9F,62.C1 .96, 26 95 . &6- F5.30.28.9F 

795 DRTR CI , 16,26,05,e6.F5,3E. 29.96, CI ,2 

6.26.34,29.F5.S4.3F.8I,33.26.95.E6,1F,5C 

.29,29,81,89.26.06 

710 ORTR E6,lF,5C,5C.29.1F.Sl.eC.26.03.E 

6. IF, 50, 29. 16. 31. 3D. 26. 06, E6. 1F,3C.3C20 

.0C.31,3F.26,96,E6,1F,SC,SC,28,02,E6,1F, 

F7,9F,69.39,XXX 

909 H*»LEFT«<X«,n 

819 L*=RIGHT*(X*,1) 

829 H-flSC(HS) 

830 L-RSCfLf.) 

848 IF H>64 THEN H-H-55 ELSE H-H-48 

859 IF L>64 THEN L=L-35 ELSE L-L-48 

360 H=H*16*L 

879 RETURN 

29999 'COOES 

21999 DflTR RBK.RSLR.RSLB.fiSPR.flSPB.CLFR, 

CLRB.C0nR,CrjHB.DRR.DECR.0ECe,E;<G.IHCfl,lN 

CB.LSRft,LSPB,nUL.HEGR.NECB,NQP.P3H?,P^.H'i 

,PULS,PULU.POLfl, POLE. PORS, FI.rb, SEX. TFR.T 

STH , TSTB, PT I . PTS, SHI , SYNC.CHRl 

21919 ORTR flDCfl.RDCB.RDOH.ftOOB.ftODD.RNOR 

,RNDB,flNDCC.Enfl,BITB.CHPft.CHPB.CMPX,EOP 

fl,EOPB.L0R.LDB,LDD.LO'J,LD>-:,ORR,OPB.ORCC, 



'-Drq.cp ZB -ij=t,, ti.'BB.SiJBO »4?9? 

■-_:■ -: '- ~ ;^9»c 
L r -ELT.P'ii =.,.= ;^ L t_u-~ *-■■. ■--'. 9VC-BVS.L 

e-fr-lk-p smxt 

■ ■ ■■.■■.■.■ ■ . ; ■ 

. ROT.BlTft»BITB.CLR.Cf*fl.O« ■ -■-■■'-> 

p. . -.-., -c- sorb E r;: E ;.,- LM^LM.LtCUJU Z9S46 

'..'..■ .:- '■;■:. ■■-- :--_ --;. :.= lt-a.:j ; c : ZSeSt 

TB.STB.STO =T'J T-T ■ -- - - - ?ti TST.JP) CKfl 

P, ■:■• 

21040 DRTR ROCft.flDCB.ftOOft.RCOe.ROOD.ANDfl ■'■"'- ^ 

■ f-NDE ^l ~\- =:;:c -;;--: _- ;■■;- ■■-=: -■■ :-.- ..-■ 

PX.COM. DEC EOftfl EORB. IHC LDR. LDB. LDD, LDU »l8fl 

.LOX.LSR.HEC,ORft,0RS.BOL.ROR.SaC«.SBCB.S »1 |9J 

TR,STB,STD*3TU.STX,SUBfl,3UB8.SUB0,T9T.JH 2^120 

P-JSP ZS130 

21050 DRTfl SHI2 25148 

21S55 C'RTm CHPC'.CnPr.LDS.LGV 23158 

21060 DRTfl LBCCLBCS.LBEO.LEGE.LBGT.LBHI 3*1*0 

LELE.LeLS.LBLT.LBMI.LENE.L8PL.LBRN.,LB'V 25170 

CLB'.'S 23189 

21878 :ftr CnPOiCnPY.LDS.LOY.STS.STY 251=0 

21 868 DflTfi CHPD.CHPY«LDS.LOY,STS>STY 25200 

21898 DftTfi CJtfij.CMP/.LOS.LD'i'.STS.STV 25210 

21100 DRTR 31JI3 25229 

21185 ORTR CMPS.CMPU 25239 

21119 DflTR CMPS.CMPU 23240 
21113 DATA CriPS.CMPU 25250 

21120 DflTR CMPS.CMPU 2526» 
21149 DRTfl RDCR.flt.CERC'DR.RDDB.RDDO.RNDfl 25278 
.flN08.fl3L.RSP.8ITfl.BITB.CLP.Cr-PFi.CnP9.cn 25288 
PX. COM. DEC. EOPR, EORB. IHC. LOft.LOe. LOO. LDU 23293 
. LDX • LER3 , LEflU. LEA* , LEfiV . LSR ■ HEG . DPR. ORB 25399 
.ROL.POR.SBCR.SBCB.STR.STB STD-STU.3TX.S 25318 
USR.S'JBB.SUeO.TST.JMP, JSR 25329 
23939 'PROOWtC FPINCIPRL 25339 
23993 COSUB25809 23348 
23905 PUtY-DOHISO" INPUT "RDRESSE OU PRO 23358 
GPRnriE R [■■ESftSSEKBL£P".&EP 25368 
23806 DES=4e-300 FG:J = 4i?574 PI 9*48454 -PI 1=* 25370 
48542 25380 
23819 FO-E POU'l ■ INT<0EP.'256> 25390 
£3929 POK-F POU*2.DEP-lNTf[.EP'256)t236 23400 
23839 SPE-OEP*! SPI=SPE*1 25410 
23948 POKE R0U+8,INT<SPEV25S> 25428 
23950 F2.-E ?C-U + 5.SFF-INT<:SFE.-2553*256 23430 
23969 POKE R0U+28»IMT<SPE^2S6) 25449 
23070 POKE RGU*21,SPE-1HT(SFE^256M256 25450 
23980 POKE POU+69 ■ IHT< SPE'236 > 25460 
23090 FOKE P0U*61.SPE-IHT.'SFE/25e>*25t : ; 25470 
23993 POKE ROU+69 INTf SP3>256> 25480 
23095 POKE F9U*70-SPI-IHT':SPI.'25^ -tl'-i 25490 
23189 POKE POU*ll,IHT<R10/256> 25589 
23105 POKE R9U*12.P19-IHT<:P10'256;><256 25529 

23119 POKE R0U*23,IKT<Rll/^36) 25523 
23115 POKE R81H24 J RII-INT<R1 1^236 »236 25535 

23120 POKE ROU+23, IHT' OEB'236 - ' 25540 
23125 POKE R0O+2S>O€e-IHT<OEB^2S6)*23€ 25545 
23130 EXEC ROU 25558 
23189 S-DEB*809 25555 
23299 B=PEEK' S > ■ R=PEEK'' S*l •• ■ C=PEEK( S+4 ) 25569 
D-PEEK<S+2>'IF B>5 THEN 8-1R-0 C-0 0=9 25565 
23295 PRINTOEP;" "; 23379 
23218 FOR 1-0 TO B-l 25373 
23229 PPINTHEXS'PEEK^DEP*!));- ". 23583 

23239 NEXT 23590 

23232 O-CSPLIN 25595 

23233 Z»-" >. ''. >. >. • 25600 
23233 LOCRTE22.O.0 FP1NTUSIHCZ»-Y*(D.C*1 23603 
-H>jD«<D> 23610 

23240 DEP=OEP*B 25615 
23250 GOTO 23818 23620 
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'-'--: i 
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PERD vf 2.J : 
IC <T 

: zK i 3 : 

■ ; - 

; 2:-:t;. ;:■■ , 

REBt- y< i , 

■2. ' 

'■£?■:* E2:.?4- p> 

RE** rats, i > 

NEXT 

: 2 : - -. - 2 : : -- = ■:■ 
=•-:■ *■■ :- : 

-e-: — ,:2" 
RERD YK18.1 
NEXT 
B£ST0R£2l86e 

RERO Y»<19.3 

NEXT 
REST0PE21379 

: e: ; -: * :-■" : 

NEXT 

f.es7c=e;:?=? 
- = -:■ ■■■»■ i: : 

NEXT 

PESTC«E219?9 
REflD * 22 I 
NEXT 

RESTOPE21109 

RERO YSC33.I 

NEXT 

RESTORE21105 

READ Vt(34.I 

NEXT 

'EiTv=E2:;i9 

RERO Y»^36.I 

NEXT 

RESTORES! 115 

READ YW37,] 

HEXT 

PESTORE21120 

REflO Y»<38.1 

NEXT 

PESTOPE21140 

per:, ■,•»< s.i ■> 

NEXT 

Dt< 1 >"" INKER." 

0*' 17>--INHER.- 

D*(33)-"INHER." 

D*(2^*"IMME0." 

D*< IS^-MMMEO. " 

D»'34>-"IMME0." 

D*<3>- n PELftT." 

DiC 19>-"RELRT.- 

0»(35)- , 'RELRT.- 

M<4>-"DIPECT- 

P«(20)-' i DIRECT" 

0«< 36 ''-"DIPECT-' 

t>«5>-"ETENl>U" 

0»<21>"ETEHDij" 

D«<37)-"ETEH0Li" 

D*<6l-"INDE>:E" 

DK22>'lHDEXE a 

D«38l-"INPEXE" 

RETURN 
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■ : 
; - . 

FOR l»l TO «4 
FOR 1-1 TO 1 
FOP 1-1 70 4 
FOR 1-1 TO 15 
FOR I-l TO 6 
FOR 1-1 TO 6 
FOP I-l TO 6 

FOP I-l TO 1 

FOR I-l TO 2 

FOR I-l TO 2 

FOR I-l TO 2 

FOR I-l TO 2 

FOR I-l TO 46 
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SIMPF 



Ceprograrnme,enhauteresolutiongraphique,encouleur 
et en musique.pour MPFII ou Apple lie, treslargement ins- 
pire du celebre jeu SIMON, vous propose de mettre votre 
memoire a I'epreuve. 

Arriverez-vous a repeter la sequence musicale jouee par 
"SIMON" sans vous tromper ?... 



Luc LEMOEL et Didier KIMES 



Moded'emploi : 

Trois njveaux dejeu vous sonl proposes (lent, normal, rapide). 

Quand il a fini de jouer, "SIMON" vous donne la "main". 

A chaque erreur, une nouvelle sequence recommence et une lettre de 

"SIMON" apparait. Vousavez doncdroit a cinq erreurs pour essayer de 

battre le High score. 

Chaque fois que vous repetez une sequence correctement, "SIMON" 

vous en propose une autre plus tongue d'une note. 

Chaque bonne note vaut 5 points. 

£60 ppiht -i 



£■33 PRINT 
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RETURN 
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PFltir ■ 
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149 


PRINT " 
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159 


pppir - 
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169 


PFInr • 
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JOUS DEUE2 HECREEH :— J . ■■: 
lh SEO'JENCE nu-;k-LE J3'JEe 
fi L'PIDE DES TOUCHES 
CM-3ISIS3EZ I'OTffE fi I ■ ->. DE 
DENT N)ORHAl 



NTfiB M 
HTRS '.I 



HOFM-L PBIHT " '■ 
2£9 HTftE 12 NORMRL 
[NUCR6E PPItiT "PI 

NiJPn&L PBtHT " «' 

239 HTHE 12 HOPHftL 

[HVERSE fPIrir ' 

MOPndL P«INT " i 

249 HTrtE 12 HOIWM. 

£50 PFIHT ■■.i.iiu:. 



COTi) 319 










329 


IF Pi 




THEt 


PRUSE ■ 


109 


GOTO 339 










J38 


ir et 


"P" 


THEf' 


PAUSE ■ 


91 


GOTO »« 










349 


GOTO 3 
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FOR I 


■ 1 T 


24 


Fi)P J 


1 TO i 


next j ppiht 


HEXT I 
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wcdBiit 
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;e«9 








4S7 


CE • 9 










498 


T • 1 










9M 


FOP I 


• l TO T 
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I(I> ■ 


[NT 


PHD 


. i ■ i . 




5 1* 


on •;< i 




r -■■ 


ce ■ TQ . - 
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934 


m:OLO» 


H F 
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[C*LB> 




- 19 


OFmU 9 


<tr x 


- 3: 


i" - 9 




■ ■' 


FOP E 


■ 19 


a n 
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339 



:»LE- E 



OFhu : 
3.-9 HEXT E 

334 if f • i theh HCOUOfi o ■;:-.■ 
OB*.u t «T X - 1>T - I GOTO 3f£ 
399 F - l HCOLOS 9 FOB •* * I fO I 

HEXT F COTO 349 
392 IF U ■ l WEN -« • 9 MruRN 
993 NEXT I 
T?* ICALE" I KCOLOI 3 D"-w I BT 

30 



FOP I « I TO T 

UTftB I 

GET Pf IF Ff 



"0" . 



■id ei 



> 



■f 



iriD Ft 



TNEN GOTO 614 
[F Rf « "I" THCfl R ■ I 
IF R« « "0* THE'' F - I 

IF F f - ■> - FHEN f ■ 3 

IF R( - -(." THEN P • 4 

IF! St I J :heh GOTO ?44 

SC • SC « 5 IP K ■ H8 ' 

■ SC 

UTA1 22 nr-E 49 PRINT 
ITPE 23 PRINT "M-SCOPE-" HS 
M « 1 GOS'JB 329 NEXT IT.' 
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FOR P " 
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1 TO 144 


KENT P .'■ 
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■99 


IF CE ■ 


5 THEM 


MTO 509 




719 
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■ PEE* 
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1*336) 


uzy.T n 
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•■,£ « 19 
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39 
739 


HCOLOS ( 
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1 DBQH 
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HCOLOR 3 -;:ble- 
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749 


DP6U CE 


* 3 ur i9. y 
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UTM 2* 








760 


FOP X ■ 


19 to it 


HTAI ■ 


PR IN 


EffPE'J' :■ 


FOP P ■ 


1 TO 39 


HE*T 


779 


FOP X ■ 


20 ro i 


:tep - 


«r- 


PPIt 


T " « EffPEUP ) " 


FOR P 


i 


TO 39 NEXT P.X 
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FOB M - 


1 TO 13 


HTAB X 


PRINT 


EP^E'JO :■ -: 


FQF F » 


TO 39 


NEXT f 
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FOR F - 


1 TO 150 


HEXT P 




794 


HTflE 14 


ppiht - 
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GOTO 4?9 






944 


FOP fl « 


1 TO 190 
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HEXT n 
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FOR P ■ 


1 TO 399 


HEXT P 
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GOSUl 34 :OfUB 


tfl GOWI 70 


COSUE 99 








914 
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END 
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UTfiE 24 
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[F P| . 
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942 
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GOTO 943 
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GOTO ?39 
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PPIHT 


PRINT 
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H E .-79-173 pom ,vi ,44 

POKE 772. 192 POKE 
244 POnE 773.9 POuC 776-446 >■ ■ 
I PO«E 779.3 POKE 779.249 P0K1 
POKE 731.292 
3014 POKE m-1-}-', POM 731.243 



POKE 734.174 fo».E 743.4 POKE I 

POKE 737. TC •"•!'£ 769.2 POKE r*S I 
POKE 799.9^ POKE 791.0 POKE 742 » 
3938 BETUPH 

6444 PEH mult 11111111 . ■ 1 

■ CRAPHlfiUeS 1 

6414 HGR HCOLOR J ROT" 9 

■^929 POKE 232.6 POKE IZ'-i-l 

^0T9 DIH . 

■J040 HPLOT 62 I TO !19.9 TO ll\ .3 

TO 62 15? TO 62'Q 

3099 HPLOT -■■:-■• TO ITS.4 '" '* 

ro ■>;- 74 to •;■; 4 

6460 HPLOT 143 > ': 213 ' "0 tl9 '« 

TO 149.74 T.) t4S,4 

';074 HPLOT 66.43 TO 1 '■: -* 1 T ' ' "• 153 

ro 66, 155 TO 66-43 

6484 HPLOT 145.43 1 
TO 141, 1^3 TO 145-43 

^0?0 HPLOT 63.1 ■ 1-13^ 

to -;3 i5-: TO -: " ■ 
vioo HPLOT ■:- z TO 133.3 ro ■ J9 73 

TO 37-73 tc -;-5 
6114 hPlOT 14.; g TO 21* 3 TO 214 73 

TO I4«. 73 TO 146.3 
•AZQ hPlOT •'.-•■ TO 133.46 TO 1 

TO 37.134 TO ■;■ 
3139 KPL '■' ■■ ■• ■ ■ 
TO 1*3- 13» to 1 ••: ■:■: 
«146 HCOLOR 2 SCALE* 1 DRAW I 

BT 24: 144 
6151 UTAB II HT-E 63 PRIHT 

Hit-E 25 PRIHT "HI-SCORE-" MS 

6164 PETijffti 
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DECEMBRE 



Unegestion complete devotrecompte en banque. Mise& 

jours, recherche, affichage mensuel, etc... 

C'est tout juste si I'ordinateur ne signe pas les cheques ! 

Michel BUKOWSKI 

Mode ct'emptoi : 

Ce programme a d'abord un rdle de mise & jour de vos comptes comme 
le talon de vos cheques mais mformalise. et. egalemenl un rfile d'archi- 
ve : fimes les recherches dans des paquets de minuscules lalons L'op- 
tion S "RECHERCHE" vous permet de retrouver immediatement une 
transaction en dormant un renseignement a I'ordinateur : soit son nu- 
mero, soit sa date, soit son montant. soit un numero de cheque si c'est 
un debit 

L'option 2 "COMPTE DE DEPOT" affichera simultanement toutes les 
transactions du mois. celles-ci ayant ete chargees grace au chapitre 1 
"TRANSACTIONS" Le programme peul en charger 30, mais si vous en 
voulez plus il suffit de modifier la ligne 9, N etant utilise pour mdiquer le 



nombre maximum de transactions dans les divers tableaux Les tran- 
sactions nont aulomaliqucmenl numerotees, mais si vous voulez en 
annuler une en utilisanl ("option 3 "ANNULATION" par exemple la n° 11. 
vous aurez sur lecomptflde depot, les transactions. 1.2.3. ,9,10,12 
pour recuperer cetie place, l'option 4 "INCLUSION" le fera tres bien. 
Loption 6 "TOTAUX" donne ce qu'i! reste sur voire cornple, cettesom- 
me etant rccalculo«iautomaliquementapreschaquenouvelle transac- 
tion 

L'oplion 7 "SORTIE DU PROGRAMME" permet. par exemple de taireun 
petil calculde prevision en utilisantleSPECTRUMcomrnecalculatrice 
Ainsi. sur une cassette, peut-on sauvegarder 12 fois le meme program- 
me mais avec des renseigriGmenls diflerents ; les programmes ayanl 
pour noms : JANVIER, FEVRIER, etc... 

VARIABLES : 

N : nombre de transactions 
D : numero de la prochaine transaction 

OS : chaine de 30 blancs pour completer les chaines jusqu'a la dimen- 
sion de leur tableau. 
J : Totaux. 
Tableaux : 

OS : dates (8 caracteres : 03.01.83) 
S$ : montants (8 caracteres ; 99999,99 maximum) 
NS : natures (20 caracteres : Prime de tin d'annee) 
XS : n° de cheques (10 caracteres : 2345627...) 
MS : mode utilise pour les credits (20 caracteres : CHEQUES) 
ZS : Flag temoin de Credit ou Debit. 

Loption 8 "SAUVEGARDE DU PROGRAMME" utilisera le nom du mois 
correspondant au releve comme nom du programme. 



Le rnois suivant charge* le programme du mois precedent puis sortez 
du programme (Option 7) ; faites RUN, le programme est arnsi vkJAd* 
ses variables. Rentrez les nouvelles transactions et enfin sauvegardez 
le nouveau programme sous le nom du nouveau mois 

Exemple : 

- Taper le programme 
-RUN 

- 1 Transactions... 

- 1 Transactions ... 

- 8 Sauvegarde 

SPECTRUM affiche I Programme correspondant a quel mois ? 
"C" 

- DECEMBRE (enter) 

SPECTRUM affiche : autorisation pour sauvegarder le programme DE- 
CEMBRE (O ou N) 
-O 

SPECTRUM affiche : demarrez la cassette puts appuyez sur une lou- 
che. 

START TAPE, THEN PRESS ANY KEY 
Un mois plus tard :... 

- LOAD "DECEMBRE" (enter) 5 le programme demarre automatiqve- 
mentau menu) 

- 7 sortie du programme 

- RUN (vide les variables) 

- 1 transactions... 
-Ssauvegarde 
-JANVIER (enter) 

- O etc... 
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REM 
REM 

LET N*30 

DIM DKM.3) 

DIM 3S(N,3J 

DIM M$ £N ,20) 

DIM X* IN .20) 

DIM MS (N,20) 

DIM Z$(N) 

FOR 1=1 TO N 

LET D* (I) ="" 

LET 3* (I) =•- 

LET N* (I) ■"" 

LET :<I!I) 

LET MJdl 

LET 2$1I.< 
NEXT I 

LET D=l 
REM 
REM 



INITIflLISfiTIOH 



€? 
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& 



PROG .PR INC IP RUB 



105 BORDER 4 

110 PPINT RT 0,1* 

120 PRINT 

130 PRINT TAB 5, ' 



"MEMO" 
TRANSACTIONS 

COMPTE DE DE 

AMBULATION 

INCLUSION 

RECHERCHE 

TOTAUX 

SORTIE DU PR 



tGRflttHC S 3RUUEGARDE" 


180 




5 UAPIR6LES ,TfiPER ",," S SUI'JJ 






190 


INPUT Z 


191 


IF Z<1 OR 2>3 THEN GO TO 19 


195 


GO TO f^ + U #100 


197 


RFM 


193 


REM 


£00 


Ci 5 


205 


PRINT RT 9 , 12, "B DEBIT- 
PRINT RT ii,12,^@ CREDIT" 


210 


an 


INPU. Z 


215 


IF Z<>1 RND Z<)3 THEN GO To 


211 




216 


LET ZS <D) =5TRS Z 


213 


CI 5 


220 

" ; O 


PRINT TAB S; "TRANSACTION Mo 


PRINT TRE 3; "DRTE 7" 


230 


INPU . D* (D) 


23S 


PRINT TRE 3; "NATURE f" 


24-0 


INPUT N»(D) 


24-5 


IF Z = l THEN PRINT TR3 3; "No 


DE CHEQUE 7 " 


250 


IF Z = l THEN INPUT XI (D) 


2 55 


IF Z=2 THEN PRINT TRB 3; "MO 



2S0 IF Z=2 THEN INPUT M$ fD) 
265 PRINT TRB 3, "MONTANT ? " 
270 INPUT SSlC) 

278 CLS 

279 LET D=D+1 

280 PRINT RT 9,6; "B NOUUELLE TR 
RNSACTION" 

285 PRINT RT 11,6; "B RETOUR RU 
MENU" 
S90 INPUT Z 

291 IF Z<>1 AND Z<>2 THEN GO TO 
290 
295 GO TO 100* (2* CZ = 1J + (Z=2) ) 

297 REM 

298 REM 
300 CLS 

305 PRINT TRB 5; "COMPTE DE DEPO 
TS" 

310 PRINT 

315 FOR 1=1 TO D-l 

317 IF DJ(IJ=" " THEN GO 

TO 34-S 

320 PRINT PAPER 4.; INVERSE 1;I; 

INUERSE 0;" ";D$(I) ;" ";N*CD 

325 PRINT " 



,V^ 



330 IF Z$(I)s"l" THEM PRINT X(l 
I);TAB 21; INUERSE 1;"-";3$(I) 

335 IF Z*tl)="2" THEN PRINT MSf 
l);TRB 21; " + " ; 5t 1 1) 

345 NEXT I 

350 GO SUB 750 

355 PRINT 

360 PRINT TAB S; "TOTflUX .- " ; U 

365 PAUSE 4E4 

370 CLS 

330 GO TO 100 

396 REM 

397 REM 
4.00 CLS 

40S PRINT "QUELLE No UOULEZ-UOU 
3 ANNULER ■?- 

410 INPUT Y 

4-20 LET D*(YJ ="•*; LET N*(YJ="": 

LET XJCY)="": LET SS(YJ="": LET 

MSCY)="": LET Z*(Y)="0" 

4-30 CLS 

4.4.0 PRINT RT 9,6; "H NOUUELLE AN 
NULATION" 

4-50 PRINT AT 11,6; "@ RETOUR RU 
MENU" 

4-60 INPUT Z 

4-65 IF Z<>1 AND Z<>2 THEN GO TO 

4-60 

4-70 GO TO 100* (4* (Z = l) + <Z=2J ) 

4.96 REM 

4-97 REM 

500 CLS 

505 PRINT "QUEL No UOULEZ-UOU3 
INSERER ?" 

510 INPUT Y 

511 IF Y>N THEN PRINT "DESOLE " 
;N;" EST LE MAXIMUM": GO TO 510 

S15 PRINT RT 9 , 12; "HDEBIT" 

320 PRINT RT 11,12;^@ CREDIT" 

525 INPUT U 

526 IF Uol RND U<>2 THEN GO TO 
525 

530 CLS 

•^35 PRINT TRB 5, "TRANSACTION No 

" ; Y 

537 PRINT 

■34.0 PRINT TAB 2; "DATE f" 

S*B INPUT DStY) 

54-7 PRINT 

550 PRINT TRB 2; "NATURE ■?" 

555 INPUT N$ (Y) 
557 POINT 

560>IF U = l THEN PPINT TAB 2; "No 
DE CHEOUE 7": LET ZS»Y*="i": IN 
"UT X$(Y) 

565 IF U=2 THEN PPINT TRB 2; "MO 
DE ?" : LET Zt(Y)="2": INPUT HS'.Y 

566 PRINT TRB 2; "MONTANT" 
557 INPUT S»(Y) 

570 CLS 

S?5 PRINT AT 9,12;"H NOUUELLE 7 
INCLUSION" 
S©0 PRINT AT 11,12; "B RETOUR RU 
MENU" 
585 INPUT Z 

556 IF Z < > 1 RND Z(;2 THEN GO TO 



■RECHERCHE: 




596 REM 

597 REM 
600 CLS 
605 PRINT TAB 
610 PRINT 
61S PRINT TAB 12; "H PAR No 

PAR DATE 
H PAR NO DE C 
HEOUE PAR SOMME" 

535 INPUT X 

636 IF X<1 OR X>4- THEN GO TO 63 
5 

64-0 GO SUB Xf-10+64.0 

54-5 CLS „ 

S4.6 PRINT AT 9,12;"H NOUUELLE R 
ECHERCHE" 

64-7 PRINT AT 11,12;"S RETOUR AU 

MENU" 

64.B INPUT Z-. IF Z <; > 1 AND Z<>2 T 
HEN GO TO 54-8 

649 GO TO 100* (6* tZ = l> +■ 1Z = 2) > 

650 CLS 

651 INPUT "No? 
PRINT "DESOLE " 
UH" : GO TO 651 

652 GO SUB 690 

653 PAUSE 4E4 
654>RETURN 

660 CLS 

661 INPUT "DATE ?",Y$ 
&5S FOR Y=l TO D 

663 IF DS(Y1=YS THEN GO SUB 690 

664 NEXT Y 

665 PRUSE 4E4 
566 RETURN 

670 CLS 

671 INPUT "No DE CHEOUE '{ " ; Y S 

572 FOR Vol TQ D-l 

573 IF XS(Y)=Y*+0*( TO LEN X«(Y 
) -LEN Y*) THEN GO SUB 630 

674 NEXT Y 

675 PRUSE 4E4 

676 RETURN 

680 CLS 

681 INPUT "SOMME ?";V| 

682 FOR Y=l TO D-l 

583 IF SS f.Y) =YS+OS ' TO LEN SStY 
) -LEN Y«) THEN GO SUB 690 
634 NEXT Y 
685>PRUSE 4E4 
686 RETURN 

690 PRINT DS (Y) 

691 PRINT 

692 PRINT NS (Y) 

693 PRINT 
— Z*(Y)="1" THEN PRINT X«( 



YJ 



THEN PPINT M* '. 



PPINT 



"TOTAUX: 



■:;6 5 



699 RETURN 

700 CLS 

710 GO SUB 750 
720 PRINT RT 10, 
730 PRUSE 4E4 
740 GO TO 100 
750 LET J=0 
755>FOR 1=1 TO D-l 

760 IF Z*(I)="1" THEN LET U=U-U 
AL S«tl) 

770 IF ZJIII ="2" THEN LET U = J*-U 
AL SS(I) 

7B0 NEXT I 

790 RETURN 

500 CLS : PPINT RT 5,0, "POUR RE 
LANCER LE PROGRRMME" ,,, "FAITES 

GOTO 100"; STOP 

900 CLS 

905 PRINT AT 10 , 0; "PROGRAMME CO 
RRESPONDANT ","A QUEL MOIS" 

910 INPUT US 

915 PAUSE 50 

920 CLS 

930 PRINT RT B , 0; ' AUTORISATION 
POUR SAUUE&RRDER- , "LE PROGRAMME: 

■'; us; " (o ou N) " 

340 IF INKEYS="" THEN GO TO 940 

950 IF INKEYS < >"0" THEN GO TO 1 
00 

960 CL5 : PRINT AT 10,O;"DEMRRR 
CZ LR CASSETTE PUIS APPUYC 

Z SUR UNE TOUCME" _ 

980 SAUE US LINE 100 ■ 



GO TO 100* 



MZ-1J 



i.Z=2( ) 
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CONTRE-ATTAQUE 



La vie de toute une population (4.000 millions d'habitants 
c'est vous dire !) depend de votre courage et de vos re- 
flexes Les vilains martiens survolent a bord d'OVNI les ci- 
tes que vous devez defendre. Chaque immeuble abattu 
vous coute 100 millions d'habitants (rien que ca !). Serez- 
vous le heros de la planete ou le responsable de I'extermi- 
nation des votres ? Lhistoire jugera. 

O. BRiEREetTDELANGLE 
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95B REJltll* LES 0. U.N.I, S **** 

980 eEniitti*i*i±iittttttttititttttttt 

878 LMNTCRNOtl 3*3) 

880 L=JMICRNDCI 3*27"J 

898 S0=lNTtRMOCU«7J 

988 GG'lNURKH 11*27) 

918 IFU-BTHEHG=42:F=39^MH=48 

928 IFU=nMENG=3B:F^48iMM=42 

938 iFU=2Tn£NG*40:F=41 :h*=30 

948 POKER'Tja 

356 POKEn-0,0 

98B POKE mtx,e 

97B tI=UftLCTI«) 

38B 0=0 »F 

990 ifn>2ernEf* t=t»g 

800 IFID5BTHEN iX=-2X*HH 

813 IFO>683TH£NB3=D:GOSU0 |320:O=SO:G 1 =G 

-H2-2-188 

828 iFT>68BTMEr.SB-T:GOSUB132B:T=L:G;=GI 

1 :Z=2-280 

030 JF2>:>?2BrnEN2X=rtM:G0SUei32B: GI=GI- 



373 POKEri'0,]33!lFIK2BrHENGOT044a 
030 POftEf1»r,2e6UFn<S0rM£NGOTO448 
098 P0K£n»», 175 

00 G0T0448 

18 REn***ti»l 

28 R£f1***l 

38 RErl*t****l 

48 rUSICPB-iFl-B 

58 POKEmS.B 

88 S=S-0 

7B IFS=-|-Tn£NGI=GI«5:Y=L:P0*En.S,18?:GO 

124B 

88 lFS-OlKEMGI-GI'l :O-S0iPQt<£rHS, 1B?:G 
JI0I24B 

rr=0BSt INHS/48J*4B-S) 
F XT-8 THENGCTO1240 

1218 JF XY=33 THENG0TO1248 
1228 IF S=2>IIHENGI=GI»1 I ;iX=MH:POKEn»S, I 
B7:GOTO1240 
1238 GOT0I258 

1240 FOR1-8TO280:NE^TI :POKEn«S, :G0T0568 
1250 P0KEn»S,46 

I G£TW« 
1270 FI-fI«l 

1280 iffi> 30rnEnGaraseB 



:tttlJiltttM>lUtlJlll» 



1238 IFi4f='I-T»£NGOr0) I S8 

1388 PDKEfltS.B 

1318 G0I05I8 

1328 ^iKiiiiiiKiiiiiiiitiiiiiinii 

133B «Efi**i« OESICuCriOP* OES »<■< 

1340 fiEiltin irviEueLES »m 

1358 REniiniiiiiiiiiiiiitii.ii iiiiiu 

1368 IF8B>63SInENG0r01438 

1378 IFeB-a83IHE^'^=^-lB0■Dfl=87iGOIO14^0 

1388 IFBa=68e7(.Er^-?-iB0:Drt'5?:QOIOl4!8 

I 396 IFBB-633Th£f*2»2-iaa;0n=Bfl:GOr014l8 

I4B0 G0I0I4ZB 

1410 P0-.ErirfS3-aa i, oi. r" ..-,-■ .-.- ■ ,« 

0KEnft8Bf4B),a:P0«En-g3.? - ■ 

1428 REILH* 

1430 IFB9 = ?B5fn£r.2=2-.ea = On=65;G_- 

'■540 ;-8B = 7187hEn?»?-i0P^- ■■. ■" 

145B IFB8*?ISTMEN2*Z- ...-■- 

1468 GOTO1480 

1478 POKEJli -:■--- 

■ : .--\r.i--- ..'■■■-.— -■-- :*'?-J-288 

I4B8 GDI0I42B 

1 430 nznttitttntit" ••*•••• ••••>'•••• 

i See --:--.i» -jerdic: ■'*' 

1518 HfHilit..iii..iiriiii'11'ni'"" 
■523 PRIM -ePopuiai.ar. rdlWI 

1538 PRiNi'flaeMonedf . -. 

1548 PltlHT'HI 

1558 IF2(.=aTME;. s BIN- ■=■ -cirt piac*, J« " 
e *ulcid*roU':G070l6BB 
1568 IFZ<l2B8TK£HPRINT'L.£iLr ETES - 
!!)!<!!' ■'! ' . ■ 

1S78 iFZ<2eea7nt>pRih7-uous o-iiR:-:; «ppr 

ENORE fl 71RER -:G0TQ16e8 

1580 ]F2<3SBBThE>PR;.sT'j£ uCuS H0W1 

GEN7':GO70l6ea 

1598 IF«38BB;n£^P'i^- r 'JE UOUS NOnTE "l'- 

1SIRE OE Lfl DEFENSE ":PR!N7'DU PATS' 

1668 PRINT 



1818 F0RI*8I03B8 

1828 GETF* 

1630 IFFt='0'TnENGI =20:2=4023 =0070388 

1640 HEX! I 



1633 REP**t* PRESENTflflON '•»« 
1690 REnt*t*lt»i»*t» «*»>«•< i '"'»»" 

:??.?. ?=:*:■ Baaa-a;a.-a.=.--.-.-:-?i ::■-"■■ ■■•---: 



1718 PRlN! 



1740 PRIN7-S..r u"t .o.t at-' 

1758 pRiN7'88aaeeaBe6888aasaoi ;u;*r brie 

«£' 

1760 FORI'ITOSB 

1778 ^USIC'O^CBR5■■ 

1788 NEXT] 

1798 RETLRN 

1880 niJSIC'a8B4DBi"P4DB1408»G4D8G4[)a«F4DB 

F4DBE40B»04D804G84C4D8C4" 

1818 F0RI-eT023 

1B28 PRINT-D5 

ci- 

1B3B TEnPO?:nuSIC-_D8fl0 " 

1S48 NEXT I 

1858 nUSIC-B4«P4rt4«G4G4»F4F4£4«04D'i«C4C4 

1868 PRJNI 'B8B8B8B08BBa8B8REOLE" 



■ ■■ ■ 
■ 

■■■ ■ 

■ ■ -■■.■ 

■ ■■ . 
. - ■ 
■ . 

■ (I - . 

1998 P*[>T" 30383^ ■. . 

2aee getf* 
i> 

■ "37. . . 
?. . PRINI 
■■ PI IN - 
CI* 

.■'.■- : : as 

2808 NEX71. 

. .,- a 
7398 PRifU'BBBCMi 



2B3B P?;n7 :233' ;:>- ■ 

188 ■■' 988 .--RKl86);-i 

21 16 Pff]N- J B38' ;ZfS*( IW1 i"' 

2i28 psiNr'saaauaua sv «i 2a 1 



-. 



■ a ■-;■•■ 
?;ea PRim 

7 i 7B P=>; N T 
21B3 PRINT' 



2138 P(tlNT'Bfl83«>;r» 3« IB8 nilliOTM o* 

220e ?Ris7-B'lS«>:rn d. 1 o.u.n. . 
2210 PR;sT"B30«oh,i a. 0S31SB fCOHof 
222B PRIN7 'aBBPOUR jOUER: ^B'' 
7230 GE7S4 

2248 lFS«-"8 [r*£WUSIC"O0C%.C3* iRETUW 

2250 G070223B 

72C0 PRINT'O- 

227B PRInI IPS : ■ • R[N 

2286 PRINT'' LBCBCBC8 F5C8CBC8E9 C8£3 C8 

C8C8C8C8CB 0BC6:8£3 CBCBCBCB- 
2238 PRINT" C8 C8 C6 £8C8 C8 C6 

' C8 C8 C8- 
2388 PRIN7" CB CB OB C8 Z» CB B 

CaCB:8C3 CB08C8 " 
2318 PRIN7" C8 C8 C8 C8 C8C8 C8 

C8 FEE3 C8' 
2320 PRINT" 08C8C8C8 FEC8C8C8C9 C9 F £C9 
C8 :6 ce C8C8C8CB ' 

2339 PRlNT:PRIN7 PRIN7 :PfliN7:PftlNT 

2346 PRiNi-cecsLBcecB cscecBcece cececac 
bcbc8cb:8C6cb FjcecBES :b ca CBcecsce 



23Sfl PRIN7-C8 C8 CB 

ce ce ce ce cs- 

2368 ORIN7"CBCeC8C8C8 C 

:ec9C8 :e FCC8 ca ce cc 
2378 PRlNl'CB C8 CB 
ca C8E8C 8 ce ce" 

238B PRIN7'CB C6 CB C8 

FEC6C8C3 CBC8C8CBC8 CBC8C8C8 - 
2398 FORI»0TQ3B8 
2400 N6XT1 

2418 RETURN 



n 



C8 C8 CB 



TRUSTS 



TRUST est un Monopoly simplifie ou la gestion de votre 
portefeuille et de vos terrains est primordiale. 



FX 702 P 



Laurent GRAVERET 



Mode d'emploi : 

Chargez le programme avec LOAD ALL, puis tapez F1 PO. 

Donnez lenotnbredejoueurs en 2 et 4, repondezau/ questions posees 

par le programme. On ne peut construire plus de 5 maisoos par terrain. 

Lejeus'arretelorsquel'un des joueursn'est pas en mesurede payer les 

droits de vislte ou de reparations. 

Chaque joueur doit noter les cases achetees ainsi que le nombre de 

maisons construltes sur chaque case, 

pour obtenir une version avec I'imprimante. remplacez aux pas 10 et 

230. MODE 8 par MODE 7. 



••• PSS LIST 

VfiR: 86 PR8: 1288 

P8: 575 STEPS 
18 I1IIIT 48:V(iC :N0 
}E 8:PRT "«»T 
RUSTS****" 
28 IHP "H",N:H=IHT 
PBS H: IF H<2 T 
HEH 28 

38 if m ma 28 

<8 PPT "CHHCUH A"! 

2e5!"F" 
58 6=188 
68 FOR 1=1 TO HtR! 

I)=2e5:HEXT [If 

M T=l TO 58 
78 FOR 1=1 TO »:PR 

T "JOUEUR";!. 
88 R=IKT (PRHt*12t 

l);fliD=fi(IHR/ 

!8«:R=188«FRRC 

KI) 



98 IF Ri48;R(I)=fK 
I)-.4»2e4:R=R-4 
8 

55 PPT "CftSE";fl, 
188 IF FRRC (fl/18)= 

,2;sse tueoTO 
! 

118 IF FRRC (R/!8)= 
.7;6S8 tl:S0T0 
B 

128 IF FRRC (fi/18)= 
8;PR1 "PARC 6RR 
TIJITV60TOB 

138 IF FRAC B(18»A) 
=8;8SB 12:8010 
B 

!48 IF FPPC R(lBtA) 
=!/18;PRT "VS E 
TES CHEZ VS",;8 
OTO 8 

158 PRT "VTSITE":P= 
ltdHT V.n*Kl) 
•2e3*(HINT (8' 
!8» 



155 X=18'FRAC WIB* 

8):»(i()=8(X)»P 
168 IF IHT 8(1)(P;6 

SB 13 
178 fl(I»=A(l)-P:PRT 

"RESTE": IHT flf 

!). 
188 NEXT 1 
198 BODE 8:P8T "CON 

STRUCTION m\ ■' 

288 IF KE7="" THEN 

288 
218 IF rEt= r 0";SSB 

I4l50;0 238 
:■'{• ic ^cy*=M ; ' ril£H 

198" 
238 flOOE 3: NEXT Tip 
RT -FJ1!":EHD 

Mi 231 STEP3 
i f=a;«T0 lBrlHT 

'RRHt.4t|) 
II PRT "DEPhRT":P( 



;PEi 

12 PP 7 "ii1P0TS"!R( 
])=R<l'/-lE.3«IHl 

(R(l»'lE4);RET 

13 (=5e4;PRT "LOTO 

i";y:fi(!)=A(I) 
•»;RET 

14 PR! "REFBP.ATIOH 
S":F0R J=! 10 4 
9iIFFRflCfl(J)« 

i/18;hext j;80T 

38 
28 P=P»!e3«INT fi(J 
>:HEXT J 

38 IF PHN1 Rd);6 

OTO 13 
48 8(D=A(i)-P:PRT 

"RESTE";IHT A( 

DiRET 

P2i 133 STEPS 

18 PPT n RCHRT";P=( 



HINT (A'18»'l 

E4 
28 IF INT AdXPlP 

ST "PRS RSSEZ.. 

.":RET 
38 R(I)=fKi)-PlA(l 

BtR)=!H! A(18*fl 

)*I/I! 
48 PRT "VS AVE2 LA 

CASE";A,"RESTE 

"!IN1 AliiiPE! 

P3: 184 S1EPS 
18 PRT "nRN9UE"!P- 

int aidhnp "0 
»".0;n=18«o 

18 IF FSAC A(Ni>!/ 
I8;PRT "H0N'":6 
010 18 

38 P=P-5e3»INT A<N 
):fl(N)=PRAC A<» 
)!IF P)INT A(I) 
THEN 18 

48 RET 



?4: 157 S1EPS 
18 Z=18:IHP "H8",K 

:IF MlREl 
28 IHP "CRSE".0,"N 

",E 
3«F=18*0!IF FRAC 

8iF)«K/ie:PPl ' 

HON !■ 
48 IF IHT A(F)»E>5 

IPRT "TR0P"":6 

OTO 2 
56 P=5e3*E: IF P)IN 

1 flIDlPR! "HON 
!":60T8 2 
88 S«!)=MK)-P!fl(F 

)=A(F)»E:60T0 I 




HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TAR1F PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 

NOM : MATERIEL UTILISE : 

PRENOM : CONSOLE : 

ADRESSE: PERIPHERIQUES : 

REGLEMENT JOINT : □ CHEQUE D CCP 



EDITEUR DE PROGRAMMES 



Ce programme en langage machine est un editeur de 
lignes batic ll pet met une mise au point simple des 
programmes 

Vincent GRENET 

Uneliiir. ^NUM\pnrexemple'&200'.suivide (RETURN} 

La !ign<* '-st Irion BWttt le curscHir esl positiiiiint 1 " tin J.Muit tic lujm> 
S» la ligne n-extste pas. le message (UNDEF'D STATEMENT ERROR) 

Dm lots m Hgn« iistee, on dispose des (onctions suivanlas : 

Avancelecurseur 

Recule le curseuf 
CTRL-D Debut de ligne 

■ iitidotigoe. 

v insertion (ESC) — fin dinsertion 

CTW -S Suppression (l caractere) 

ctrl-t Sui'pit-ssion (i carecwre] 

] Recherche de teste Le curseurse place sur la premiere posi- 
tion de lalettre topee 

Ex (CTRL-T.puis'A',placelecurseursurlepremier'A',etc)flniren 

tapant une lettre ditterente de la lettre cherchee. 

CTRL-2 Suppnme tousle i i . : ■-■■ .. tqu 'jl.i premiere occurence 
de la lettre tapee apres 

Ex : (CTRL-Z. puis "A" suppnme tous les caracteres jusquau pre- 

mier 'A' exclu 

CTRL-I Suppnme une instruction dans une ligne qui en contient plu- 
efface jusqu'au 

CTRL-B Compacte la ligne. 

CTRL-Q Sort de lediteur en effacant la fin de la ligne 

CTRL-X. Sortie sans modification 

CTRL-R Restaure la ligne initiate 

RETURN Valide la ligne entiere 

La fenetre d'ecran doit etre normale 




9ASL > 

CH 


• 29 

• 24 


CV 


• 23 


LIWW1 


•30 


LOUT* 


•7B 


FAC 


•70 


CHRGET ■• 


• B! 


CHRGOT 


•67 


BUFFER 


•200 


CLAVIER - 


•COOO 


FNDLlN ■ 


• Dal A 


USERR 


•D97C 


LINGET 


• DAQC 


RSTHIM 


•F28C 


8ELL 


• FBOD 


VTA61 - 


• FC22 


CLBEOP 


•FC42 


CROUT1 


• FD3B 



&&* 



s»j CO 


A9 


nc 


9 : C - 


m 


•■- 


?ita 


tn 


so 


9 : C * 


A9 


91 


MM 


n 


F? 


-■ : . ■ 


na 


V 


MOB 


4C 


8C 



ORG •9600-1073 -.ORIGINE JUSTE SOUS LE DOS 



|ET RESET H1MEM 



^:^ 


£<PGM 


STA 


• 3F6 


STA 


LINNUM 


LDA 


£>PGM 


STA 


• 3F7 


STA 


LINNUM 


JMP 


RSTHIM 



PROGRAMME PRINCIPAL 



91 EO: 00 32 



iSI fcS. MODIFICATION DU PROGRAMME 



91 E2: 


A7 


GO 




34 


LDA 


£*EA 


[INSTRUCTION NOP 




9 1 Ed: 


ao 


10 


92 


33 


STA 


Ml 


1LES INSTRUCTIONS 




91E7: 


90 


31 


92 




STA 


Ml + l 


[DE STOCKAGE D'ESPACES 




91EA: 


80 


82 


92 


57 


STA 


MI*2 


jSONT SUPPRIMEES 




PIED: 


3D 


93 


92 


39 


STA 


Ml*3 






91F0i 


ao 


84 


92 


39 


STA 


Ml*4 






91F3: 


ao 


ft 






STA 








91F6: 


BO 


9C 


92 


61 


STA 


H2*l 






9IF9: 


80 






82 




M2*2 






91FC: 


80 


9E 


92 


63 


STA 


M2*3 






91 FF: 


80 


9F 


92 


44 




M2*4 






9202; 


60 


CA 


92 




STA 


M3 






9205: 


80 


C8 




66 


STA 


M3*l 






920 Bi 


SO 


cc 


92 


67 


STA 


M3*2 






920 Bi 


80 


CO 


92 




STA 


M3*3 






920E: 


80 


CE 


92 


69 
70 


STA 


MS* 4 






9211 1 


20 


81 


00 


71 
72 


JSR 


CHRGET 






9214j 


20 


B7 


00 


73 PGM 


1 JSP 


CHRGOT 






9217: 


20 


OC 


M 




JSR 


LINGET 






921A: 


,:o 


1A 


M 


73 


JSR 


FNDLIN 






92! Di 


80 


06 




76 

77 
78 


8CS 


RESTORE 1 






921 Fi 


20 


9C 


n 


JSR 


AUTOM 






9222: 


4C 


7C 


09 


79 


JMP 


USERR 


lEPREUR SI LA LIGNE N'EXISTE 


PAS 



./.-.'. 


AO 


FA 


9 a 


916C 


2C 


[ f- 


93 


926t 


'JO 


1)6 




7271 








tin 


H) 


OH 




9?74 


CE 


FB 


re 


9277 


09 


90 




9279 


20 


83 


94 


927C 


99 






9270 


RB 






927E 


10 


BH 




9290 


A9 


AO 




9262 


i\) 


B3 


94 



JSP STOCKE 



iTE LA LIGNE 



% 92091 


FO 4A 




49 




BEO 


FINLIGME 


920Bi 


30 OB 




SO 

31 




BMI 


TOKEN 


9260 I 


09 BO 




32 




ORA 


(•BO 


928FI 


20 83 


?4 


33 

34 




JSR 


STOCKE 


92921 


CB 




33 




INY 




9293i 


00 F2 




36 
37 




BNE 


LIST! 


92931 


9C FA 


93 


38 
39 


TOKEN 


STY 


COMPT 


9298 1 


29 7F 




60 




AND 


t*7P 


929AI 


AA 




62 




TAX 




929BI 


A9 AO 




63 


M2 


LDA 


f • 


92901 


20 83 


94 


64 
63 




JSR 


STOCKE 


92A0i 


A9 00 








LOA 


£•00 


92A2I 


B3 9b 




167 




STA 


FAC 


92A4i 


63 9E 




168 
169 




STA 


FAOI 


92A61 


AO 00 




170 
171 
172 




LOY 


£0 


92A8l 


EO 00 






CPX 


£0 


92AA1 


FO OE 




173 
174 




BEO 


LIST? 


92AC1 


91 90 




175 
176 


LIST3 


LOA 


(FAO ,Y 


92AE: 


C8 




177 




INY 




92AFj 


DO 02 




179 




BNE 


L1ST2 


92B1 1 


E6 9E 




179 
190 




INC 


FAC*1 


92831 


43 




191 


LI5T2 






92B4i 


68 




162 




PLA 




9295 1 


10 F3 




163 
184 
183 




bpl 

DEX 


L1ST3 


92B6t 


DO F2 




196 
187 




BNE 


LIST3 


928A; 


B1 90 




188 


LIST7 


LOA 


CFAO.Y 


929Ci 


43 




167 




PHA 




9260 1 


09 80 




190 




ORA 


£•80 


92BF1 


20 B3 


94 


191 
192 




JSR 


STOCKE 


92C2i 


CB 




173 




INY 




72C3i 


DO 02 








=j;e 


LIST6 


92C3l 


E6 9E 




193 
196 




INC 


FAC* I 


92C7i 


68 




177 


LIST6 


PLA 




92C3 


10 FO 




17B 
179 




BPL 


LIST? 


92 CA 


A9 AO 




200 


MS 


LOA 




92CC 


20 B3 


94 


201 
202 




JSR 


STOCKE 


92CF 


AC FA 


93 


203 




LOY 


COMPT 


9202 


C8 




204 




INY 




9203 


DO B2 




203 
206 




BNE 


LI ST I 


92D3 






207 

206 


FINLI ONE 1 rii 














9208 


A9 AO 




207 




LOA 




92DA 


OD 00 


02 


210 




CMP 


BUFFER, X 


9200 


FO 03 




211 




BEO 


FINLIST 


92DF 


20 B3 


94 


212 
213 




JSR 


STOCKE 


92E2 


A9 00 




214 


FINLIST 


LOA 


fO 


92E4 


BD F7 


93 


213 
216 
217 




STA 


CURSEUR 


92E7 


A2 06 






LDX 


£6 


92E9 


20 9B 


FO 


218 


NXT1 


JSR 


CROUTI 


92EC 


CA 




217 




OEX 




92EO 


10 FA 




220 
221 




6PL 


NXT1 


92EF 


38 




222 




SEC 




92F0 


A3 23 




223 




LDA 


CV 


92F2 


E9 06 




224 




SBC 




72F4 


3D FD 


93 


223 
226 




STA 


BASEV 


92F7 


AO F8 


93 


227 




LDA 


FINLIN 


92FA 


C9 EF 




228 




CMP 


£«£F 


92FC 


90 03 




227 




BCC 


EDITl 


92FE 


20 76 


93 


230 
231 




JSR 


RBLANC 


9301 


20 C8 


94 


233 


EDIT I 


JSR 


ECRIS 



jSIHON C'EST UN CARACTERE NORMAL 



;SAUTE X TOKEN OANS LA 
;TABLE OE L'APPLESOFT 



LISTE LE BON TOKEN 



NITIALISE LE CURSEUR 



•ROUTINE DE CONVERSION DU NUMEPO DE 1 



237 • EDITION 



9223: 


A3 


30 




85 


RESTORE! 


LDA 


LINNUM 


9227; 


90 


1-t 


93 


66 




STA 


NUN 


922A: 


A3 


31 




97 




LDA 


LINNUM-1 


922C: 


90 


FF 


93 


99 
69 




STA 


NUM*1 


922F: 


A7 


K- 




90 




LDA 


£*FF 


9231 i 


BD 


F9 


-'', 


91 
92 




STA 


FINLIN 


9234: 


A9 


00 




93 




LDA 


£0 


9236: 


90 


r-e 


-■. 


74 

93 




STA 


FLAG 


9239: 


AO 


08 




76 
97 




LOY 


£B 


923B: 


A7 


■ u, 




76 


C4 


LOA 


£0 


923D: 


80 


FA 


93 


77 

:oo 




STA 


COMPT 


9240: 


AO 


PF 


93 


101 


C2 


LDA 


NUM*l 


9243 


09 


C3 


93 


102 




CMP 


TABCONV. 


9246; 


90 


21 




103 
104 




BCC 


CO 


9248 


00 


<J8 




103 
106 




a '- 


CI 


924A 


AD 


hi- 


91 


107 




LDA 




9240 


07 


r? 


91 


:cf 




CMP 


TABCOfJV 


9230 


90 


17 




109 

no 




BCC 


CO 


?252 


AO 


FE 


93 


11 1 


CI 


LDA 


NLM 


9255 


F9 


C2 


-' 


! 12 




sec 


TABCONV 


9233 


3D 


t-b 


W 


1 1 3 
114 




STA 


MM 


9258 


AD 




vn 


IIS 




LDA 


NUMM 


925E 


F9 


n 


9- 






SBC 


TASCOM^. 


9261 


80 


FF 


•': 


117 




STA 


NUM»l 



A suivre: 

En raison de la longueur 
inhabituelle du listing, 
nous passerons ce pro- 
gramme en deux fois. 

La Redaction 



9304: 


70 


4F 


73 


242 


?30 7i 


80 


PC 


73 


243 

244 


930A: 


C7 


7B 




743 


930Ci 


FO 


F6 




246 

247 


930E; 


C? 


AO 




748 


OLE 










93101 


BO 


OH 




247 


" 








230 


9312 


Ab 


OA 


73 


231 

»2 


9313 


00 


CC 


73 


233 



9264: EE FA 95 119 



93ID: 


AO 


F7 


93 


237 


9320: 


CO 


pfl 


93 


'Ml) 


9323, 


90 


28 




261 
767 


9323: 


AO 


FS 


93 


.' '. 1 


9326: 


r.9 


f-F 




.'.v; 


932A- 


70 


1C 




163 

766 


932CJ 


20 


16 


V3 


26 7 
266 


932F 


70 


?4 


73 


;•-•- 


9332, 




Ffl 


93 


2^0 


9333 


8D 




93 


271 


9338 


20 


38 


73 


272 



GET CAR 


JSR 


KEYIN 






STA 


SAVC 






CMP 


£«9B 






6EQ 


GET CAR 






CMP 


(»A0 


|SI LE CARACTERE N'EST 




BCS 


REMPLACE 


;ON REMPLACE LE CARACTE 




LDX 


NCOM 


[SINON CHERCHE SI C'EST 


NXTCOM 


CMP 


TA9COM,X 


[UNE COMMANDE 




BEO 


TRVCOM 






OEX 








BPL 


NXTCOM 




REMPLACE 


LOA 


CURSEUR 


iSlNON REMPLACE 



BCC REMP1 



BCC REMP2 

JSR R9LANC 

JSR RSTCRS 

LDA FINLIN 

STA CURSEUR 

JSR SETCRS 



jSI LA LIGNE DEV1ENT TROP 
[GRANDE ALORS SUPPRIME 
[LES BLANCS 



suite page 15 



SDDGCC 



Ce programme pour HP41Cestunutilitairepouretudiant 
en mathematiques. II aide a resoudre les equations du se- 
cond degre a coefficients complexes avec ou sans impri- 
mante. 



Resolution d'un? e 
•wation du second de'jre 
a coefficients uwtexts 

L' equation est de la fo 



fl*Z*Z t B*Z t C = 8 

ou fl.B.C sont les coeff 
icients de la forae 

X + iV avec X et Y reel 
s. 

P est supoose non nul. 

L'inconnue est Z. 

Le discrimnant DELTA e 
st e^al a 

| = B*B - 4*fi*C = d*d 

ou d est de la for«e X 
♦ iY. 

Les racines soul de la 
fOTfte : 

Zl = C-Btd)/C2*fl) et 
22 = <-B-d)/<2«fi) 



Produil de deux nonbres 
complexes. 

14B a U8 : LBL-SOPT": 
Racine carree d'un nonbr 
e co«plexe. 

149 a 153 : LBL "X" : 
flffichaie de la partie r 
eelle d'un noabre co*ple 





154 a 158 : LBL "Y" : 


Damien DEBRIL 


flfficha^e de la partie i 




nasinaire d'un nonbre co 




fiplexe. 


Pour finir les racines 


159 a 168 : LBL 61 




flfficha^e du nu«erateur 




H dans le calcul de Zl e 


Zt:X=.... 


t Z2. 


ZI:Y= 


169 a 179 : LBL 85 




Divise le nunerateur par 


Z2:X= 


2»fl. 


Z2:Y= 




Cofmenlaires du Pro^ran 




fte 


Le programme fonct 





lonne avec ou sans inon 


_ 


nante. 




On peut ^agner vieUues 


882 a 841 : Introductio 


octets en rewplacant le 


n des coefficients fl-B.C 


s labels alphabet Uues p 


. d'abord la partie rell 


ar des labels 


e puis la partie 


nuftenvues. 


ina^inaire. 


Ci-ioint deux exeftples 



Relecture d 
es coeff icientsi drapeau 
leve. 

ft chwue ar 
ret on peut entrer une n 
ouvelle ualeur. 
842 a 858 : Si vous des 
irei le detail des calcu 



Delta apparait a l'ecra 


Is repondez 0. 


n sous la forse : 


851 a 877 : Calcul du d 




iscriflinant Delta - B. 


5:X= 


878 a 885 : LBL 83 : Ca 


1:Y= 


Icul de d tel «tue d*d = 




D et afficha^e de d. 


de «ene pour d on obtie 


886 a 185 : flfficha<je d 


nt : 


es racines. 




186 - On recover* 


d:X= 


ce. 


d:Y= 


187 a 111 : LBL "-" : 



de resolution d'e«uatio 



1) <l+2i)*Z*Z + (3-4i) 
*Z - 7+i = 8 

a pour solutions : 

Zl = 1,564322 + 8, 
868435 i 

Z2 = -0,564322 + 1, 

939565i 

2) (-3+4i)*Z*Z * (5tl8 
i)*Z + 13-9i = ( 



ainsi sue pour le inner 
ateur de chacune des rac- 
ines de 1' equation *ui s 
e presente : 



H:X=.. 
H:Y=.. 



Difference de deux no«br 
es complexes. 

112 a 119 : LBL '*" : 
Sof»e de deux nonbres co 
nplexes. 

128 a 139 : LBL '/' : 
Quotient de deux nonbres 

complexes. 

126 a 139 : LBL "*- : 



donne 



V«> 



D =-63 -216i 
d = 9 - 12i 
H = 4 - 22i 
Zl=- 2 t i 

N =-14 t 2i 
Z2= 1 * i 

D'autres exeflples sont 
fournis oar les listings 
ci-joints en node norfia 



ErtPLOI 




1941 88.91 


61 -4 




8HL8L 'SIKCC- 


62 • 




82«LBL C 


63 RCL 81 


1) Introduire le pro^rs 


93 CF 27 


64 -4 


me. 


94 SF 21 


65 • 


2) User C ) on peut aus 


95 CF 89 


66 PEL 96 


si I'assiiner a C. 


96 CF 29 


67 RCL 85 


3) Intoduire les coeff i 


97 CF 9! 


68 XE9 •«• 


cients complexes, d'abc 


98 FIX 6 


69 RCL 88 


d Partie reel le puis par 


89»LBL 87 


78 PCL 87 


tie inaginaire. 


18 1.896 


71 XE9 ■♦■ 


4) Relecture. 


11 STQ 98 


72 FC 88 


5) Pour obtenir le deta 


12 CF 22 


73 CTO 83 


il des calculs entrer 


13 -fl X=" 


74 -D- 


sinon R/S. 


14 XE9 82 


75 XEC -X- 


6) flppurer sur R/S pour 


15 "fl :Y= - 


76 -1- 


voir apparaitre tous le 


16 XEQ 82 


77 XEO '»■ 


s resullats internediair 


17 •B.X= - 


78«L8L 83 


es. 


18 XEO 82 


79 XEO "SORT 


7) Voir apparaitre les 


19 -B:Y=- 


86 FC? 88 


racines d'abord la parti 


29 XE9 82 


81 GTO 84 


e reelle puis la partie 


21 "C:X=- 


82 -d- 


ifwinaire. 


22 XE6 82 


83 XEO •>- 




23 -C:Y=- 


84 -d" 


SIZE 811 + 05? resistre 


24»L8L 82 


85 XEO -Y- 


s pour le prosrawie. 


25 FC? 81 


86«L8L 84 




26 -F ?• 


87 STO 89 


HEHOIRES : 


27 FS? 81 


88 XOY 


ei = fix 


28 ftRCL IHD 88 


89 STO 18 


82 = ft 


Y 


29 PROKPT 


98 XOY 


83 = 8 


X 


38 FS?C 22 


91 -RACINES" 


84 = 8 


V 


31 STO IHD 88 


92 XEO 81 


05 = C 


X 


32 ISG 88 


93 "Zl- 


06 = C 


V 


33 RTH 


94 XEO -X- 


07 et 08 = pour le calc 


34 " RELECTURE - 


95 -Zl- 


ul de 8*B 


35 FC? 81 


% XEO "V 


89 = d:X 


36 PROMPT 


97 RCL 18 


10 = d:Y 


37 FC?C 81 


98 CHS 




38 SF 91 


99 RCL 89 


Ce progranfte utilise le 


39 FC? 81 


188 CHS 


nanuel duplications d 


49 FS? 38 


181 XEO 81 


e la 41 p. 53 a 55. 


41 GTO 87 


182 -Z2- 


Sa lecture est facilite 


42 -DETAIL? 0-N" 


183 XEO -X- 


e par les labels alphabe 


43 BOH 


184 -Z2- 


ti^ues. 


44 STOP 


■ 185 XEO -Y- 




45 flSTO Y 


186 GTO C 


A4 W 


46 -0- 


187tL8L --- 


«V i /#\ 


47 PSTO X 


188 CHS 


■^ » ffiT \ 


48 flOFF 


189 XOY 


* \Cf~\ \ 


49 X=Y? 


118 CHS 


k S^-HT^ 


58 SF 88 


111 XOY 


o Z^/Jp^\ 


51 -DELTfl- 


112»LBL •*• 


n%y\ 


52 RCL 84 


113 XOY 


wp r -\ 


53 RCL 93 


114 RDH 


1) 


54 RCL 94 


115 » 


55 RCL 83 


116 RDH 


V)^__ t\ 


56 XEO ••■ 


117 » 


_ fc /i iHT ^ 


57 STO 87 


118 Rf 


JA 


58 RUN 


119 RTH 


59 STO 88 


128»LBL -/- 


~^i 


/- - ^3 


' 69 RCL 92 


121 R-P 



122 \a 

123 XOY 

124 CHS 

125 GTO 98 
126.L8L -•■ 

127 P-P 

128 XOY 
129.LBL 99 
r« ;■[■•■ 

131 PW 

132 R-P 

133 Rt 

134 • 

135 RW 

136 t 

137 Rt 

138 P-P 

139 RTH 
148»LBL -SQ 

141 R-P 

142 SORT 

143 XOY 

144 2 

145 / 

146 XOY 

147 P-R 

148 RTH 
149«L8L f 
158 -FX=- 

151 »RCL X 

152 BVIEU 

153 RTN 
154«LBL "T 

155 -F:Y=- 

156 ORCL Y 

157 BVIEU 

158 RTH 
159«LBL 81 
168 RCL 84 

161 RCL 83 

162 XEO •-' 

163 FC? 88 

164 GTO 85 

165 -H- 

166 XEO -X 

167 -H- 

168 XEO 
I69.LBL 85 
178 2 

171 / 

172 XOY 

173 2 

174 / 

175 XOY 

176 RCL 82 

177 RCL 81 

178 XEO •/ 

179 RTH 
189 EHD 



V 



SPIDER 



SPIDER tourne sur un VIC 20 equiped'une extension 3 Ko 
et d'un televiseur noir et blanc. 



Made d'emploi : 

Le but du jeu est d'empecher les araignees (symbolisees par X) de re- 
joindrelebasdel'ecran. Les araignees sedeplacentde la fa?onsutvan- 
te : elles avancent dans une direction fixee jusqu'au moment ou elles 
rencontrentunepomme. Apresle choc, elles descendentd'une case et 
repartent dans la direction opposee. 
Vous contrdlez votre base de defense a I'aide cJrs touches CRSR pour 

1 
vous dinger vers la droite et CRSR pour la gauche. 

La barre d'espace vous permet de tirer. 

Tous les 100 points, vous disposez d'une fusee supplementaire ; tous 

les 200 points, 80 nouvelles pommes se placent sur I'ecran. 



COMMODORE 



1 PK:Ilil".'i=r t-UKtJ6d.'3, 10 P=I -V*2 
10 PRIHT'•a«l»•»•fc.fIIJE:R3'■ 

it) print ■'«ww:-=cRiRI»•^l->=^,RSR'• , ' 

30 PRIHT"*ET POUR TIftEft HPPUVEZ BUR LH 6hRRE ITESPHCE" 

1M PRIHr-f* CHflOUE F0I3 QUE VOUi (IREZ UHE POMtlE Vuui (»»»HiVEZ 1 »-UlMi 

50 PRIHT' , UI€ HRE&ME It! PU1HI-.AI MltrUl'JII m CHftuUE F-'JIi U'UHE FiRE&NE ". 

50 PRIHT"»RPJ*IV£ EH fchi VU'Jb PEF^DE^ U"E ►•■••••f'Uitt" 

65 PRINT"aM.E HDKKE LE FUitE uU IL "- 

70 PRJHT-VfJUb RESTEHT ESI iWIHLIClUE EH HFiur Fill GhUCHE Et LES 

POIHTS H P»M*»KJRUI TE'" 

&0 GETH* ■IFfl*=""THEHS0 

30 PRIHT"3":Z-a:)t-2;P-l V«2 

ISO REM IMITIRLliHIIUH IiE'i LHPftCTEReS liRFIFlUUES 

1 10 PCiK^36S63. 2^ P0KE52. 25 P0KE56. 26 

120 FORL=7424Tu7432-POKEL-0-NEXT 

130 fl»7168 

140 ffjRL=ir04« RErTDF PDKER,F fH=R* X -NEXT 

150 Dtir(il29, 66-60-60. 60-60. 66, 123 

151 DFlTfll23.66.6o,bU-'--y.60,o6-U3 

152 WiTftl2y.D6.60.6M.6e.60.66.129 
160 W([ft28.16. 120,^5^.25^-25^,^52,128 



I/O Dl=ITi : (if,si.2s-2a,2a.62,62.e 

180 LFIIFI0. 24, 153. IS'J. 2 Jl, 135.203, 195 

198 FPlltr".T'Z=3^=2-P=I-Y-2 

200 REM REHPU.SSKGE lit L ECRmN 

203 FuRfi=7680TO;-; , 02 FCKER.3IIEX,T 

204 FrjRfl=7680TO8165'i,TEP^ F6^ER.3 ■KIKEH+21.3;NEXT 

205 FGRF=1TO100 

210 L=INTt76a0+462#Rlim0^ 

215 IFPEEK-:'.niT'.L-'2^*2j=3THEH2i0 

220 P0XE<IHT<L/2)>«2,3:HEX7 

225 FuRH.^r-.^l'JrVui FQKEft,3-HEXT 

230 REM DEPLftCEMEMT ET TIR DE Lft SfiSE 

240 PB=S156 PT=8137 fi=0 C=l:JJ=l-E=l L=<V*3.F-L-1 BoF-I 

241 rOKEL,y PUKtF,0 POKEB-0 

245 P0KEPT*22,32 -POKEPT, 32 PT = fe2.3f' 1-0 POKE36S7ti,0 ■ V=220 
250 IFPEEK<:iS7y = 32THEMr=22 Pt^Pfc-ii Fur-E-iodf 6, 15 
2?Z IFPEEK'.li-(^31THEItPuKEPB,32PEi-PIi-[ IFPB=8142TMEMPB»PB + I 
,,.... II- :■![.!■: -i,-, -.,.■: .11. N! i :■ :.i ,, . ,,.. It i- I ■ 1 I : >■ ,:■-■■,,-..■■ -ItMlL-r u ■■ 1 

£•-,2 P0KEPB.5 
296 uuiu4uy 

J00 pr=pT-r y.=i 0010310 

305 PT=PF-T V.=2 

310 iFPT*S287THEH250 

313 P0KE36876/V-V"V+1 

320 IFPESK<PT»3flHBPr>??24THerlP0KePT+22»32 POKEPB.S-PO 

KEPT, 4 OHXCOTO365.270 

338 IFPEtK'.PI/=3lHEIlM"ft*l G0T0245 

335 IFPT<?724THEMD0T0243 

340 IFPr=LrHEHL=^*it C— 1 M=M*10 G0TU245 

j5W IFPT-FTHENF-7723 D^l-(Wi*ie 0OT0245 

J60 IFPr=B[HEHB=7702 £=*1 fl=H*!B G'jlu*:45 

stb ooToaee 




RREGNES 

fUKEL.32 L=L*C 
IFPEEKtLJ"31MtHL-L+22-CiO-C 

IFL=FrHEHC=-D 

POK.EL,0 IFL>SlS6TftEIIL«/<02 6U3UBO0W 

Pijr.tF-J2-F=F*U 

[FPeEK(F>"3THEHF-F+22-D'»^D 

POKEF , 1 1FF>31S6THEMF=7702 &OSUB6O0 

[FF-BTHEHD— E 

FCir.EB,32 ■ b=B+t 

1FPEEK':B^JTHEHB=B*22-E E— E 

POKEB-2 lFU.iblt:'3lHEIIb^7.'ij3 GOSUB600 

IFB«^THENE—C 

F■PIllr"3*»^^»^^^»^^•^^»#^»n , -h iKHj = i«w»PiHtNi=t+i p=f* 

ffilNT'flWtWiZ 

lF2<"8THEH00T052e 

IFP>VTHEH008UB1W8 

GOTO330 

REM Fit. BU JEU 

PRINT ■:)" 

Fuf:b.-:-^6a,240 

Kul E.i6S,'3,26 

IFFOH1 THEHH1 =H 00 T 0538 

PRIMT'-MMLE RECORD EST BE 

FkiiU'WUBIBHtKHVU RECORD Eftiru" 

PKinr'MWimwi vorRE &core Eii",h"iP»i»»»»»t j uinii 

FPIHT"IUIW«iPPUVE2 bUK u hu(jKl»»iiit»»|.EJOUER" 
PKHH"lW***iPPUVEZ SUR H POUPPMMWE PH3 REJOUER" 

IFAI^'Cl'THENPRlNT'T]" POKEjDtj.y.HJ KtjIuRt UUlUlOO 

[FM-"H'TH6HEHD 

GOT 0560 

Z-Z-l 

PRINT" MHTiZ 

MJhtj:o6/S,15 

FGRS=ir01 

F0RO-I88TO235STEP2 

P0KE3ft676,0 

FORN- 11050 

HEXT 

NEXT 

POf,E366Y6,0 

FGRO-irOl 



1 UUIU54U 



V\C20 



^00 HEXT 
710 IIEXT 
728 POKE36878-0 

,',U KLI'JPIl 

lULnj hji.L.J'j.._(.--;.U FORk-irGSO 

1005 H-iHT«V6y0*46^*kND<0J> 

1010 lFPEEKCU(ntH22^*2j-3THEH19W 

1020 PQKE'.IlirCH/2)>«2,3 IIL/.I 

1040 Y-V+2 RfcJUNN 



DES LOGICIELS 
POUR CANON 

Explorez les etonnantes possibilites de votre CANON 
X-07 avec les quelques 40 programmes reunis dans cet . 
ouvrage. Des programmes performants qui fonctionneni 
sur le X-07 de base (8 Ko) ; calculs scientlliques : opera- 
tions sur les matrices, conversion de coordonnees. 
racines de polynomes. integration, interpolation, etc Des 
utilitalres : gestion de compte en banque. histogramme. 
impot. hard copy, trace de courbes. biorythmes, etc Des 
Jeux: loto. poker, ardoise magique, un peu d'EAO, un : 
super jeu d'aventures : le Tresor du Galion et trois "gros" 
programmes qui necessitent une carte d extension 4 K : . 
Astral. Tierce et Surfaces et Volumes 

UN LIVRE SIGNE SHIFT EDITIONS ! en vente chez les 
distributeurs CANON el par correspondence. 

>< 

SON DE COMMANDE A DECOUPER OU RECOP1ER 

A ENVOYER A. 
SHIFT EDITIONS : 27. rue du GAL-FOY, 75008 PARIS 



PRIX UNITAIRE: 95 F 
conlre remboursement 

REGLEMENT JOINT 
cheque O CCP n 



France — 20 F □. etranger -f 30 F n 

,0 F DATE . 

SIGNATURE : 



Canon 



JEUX 
ET 

PROGRAMMES 



ORDINATEUR INDIVIDUEL 




. INTEGRATION 
3.RFICIHES DE P0LYN0ME 
UQTRE .-.CH0IX. iJufZAZ) .? 



Illllliill 



C'EST NOUVEAU, 
CAVIENTDESORTIR! 



CANON CALC 

Un tableur pour CANON X-07 vient de sortir. Edrte par 
logi'stick, I'architecture de CALC repose sur la superposi- 
tion de deux tableaux en constante relation, permettant 
un travail sur des donnees aussi bien numeriques qu'al- 
phanumeriques ou encore graphiques. Les tableaux sont 
imprimables avec le logiciel G RAPHE qui permet I'impres- 
sion de lignes ou de colonnes en histogrammesa trois di- 
mensions, histogrammes batons, camenbert statistiques 
et graphes a points et a lignes. 



REPRESENTANT 

Lacademie commerciale Internationale (A.C.I.), etablis- 
sement d'enseignement Superieur de la Chambre de 
Commerce et d'lndustrie de Paris ouvre une nouvelle ses- 
sion deformation de REPRESENTANT EN MICRO-INFOR- 
MAT1QUE. D'unedureede 10 moisencoursdusoir.ee pro- 
gramme s'adresse a des hommes et des femmes just rfiant 
de 3 annees d'experience professionnelle commerciale. 
informatique ou administrative. Vous pouvez obtenir des 
renseignements au 766.51.34 ■ 



LE PREMIER TOME EST DEJA UN BEST-SELLER, VOICI DEUX NOUVEAUX 
RECUEILS DE LOGICIELS, ENCORE PLUS COMPLETS, ENCORE PLUS 
BEAUX! 



JEUX et PROGRAMMES 

pour 

I'ordinateur familial 

TEXAS INSTRUMENT 



1 ' ' H 










? ■ 
i 

- ^ ..." 


^■f^^™ 







Brrxyammes en Ti basic pow ~T\ 99/4A" 



INITIATION AU 

LANGAGE ASSEMBLEUR du 

TEXAS INSTRUMENTS 

Ti 99 4/A 




Programmez vous-meme en Ti-Basic grace a des instructions simples, sans 
aucun peripherique ni module complementaires. Des jeux originaux et passion- 
nantsavec couleurs, graphismeset sons : Jeux de mouvement (Bowling, Bataille 
de I'espace, Labyrinthe, etc.). Jeux de reflexion : Dames, Pendu, Awari. Tour de 
HanoY.Architecte, etc.). Jeux desociete (421. Goldie.Cochon, Mastermyster.Chif- 
fres et mots, etc.). 

Des programmes performants: Calcul (Factures, Paye. Byorythmes, etc.). Assis- 
tance (Tierce, Impots, Suivi de compte en Banque, etc.). 

Et aussi des Astuces pour augmenter la puissance du langage Ti-Basic : AND et 
OR. Arrondi, Alignement, HCHAR multiples, etc. 
100 pages. Format 21 x 29.7. 155,00 francs francais. Disponible. 



Letome2esttoujoursen basic simple, sans peripherique ni module complemen- 
taire. Les jeux y sont encore plus nombreux: Backgammon, Sous-marin.Trappe, 
Roulette, Casse-tete. Puzzle. Echecs, Tachitoscope, Kim, Paires, etc... De la musi- 
que a inclure dans vos programmes : Big Ben, la Marseillaise, God save the queen, 
les Rois mages, etc. Et aussi, des programmes educatifs : Arithmetique, Calcul de 
puissance, Regions de France, entratnement a la logique informatique, etc. 
100 pages. Format 21 x 29,7. 155.00 francs francais. Disponible. 



en vente dans les fhac et chez les 
revendeurs TEXAS INSTRUMENTS. 



Le tome 3 est en basic etendu, il necessite done le module "Extended Basic" qui 
augmente considerablement les possibilites de votre ordinateur.Ades program- 
mes utilitaires comme un traitement de texte ou une gestion complete de plu- 
sieurs comptes en banque s'ajoutent des jeux rapides (bataille navale, course de 
voitures. etc.). des jeux de societe (Theme astral. Drapeaux, Poker. Harmonium, 
Calculettescient if ique, Ardoise magique etc.). des utilita'ires pour creer des lutins. 
fusionner des caracteres, dessiner point par point, faire defiler des textes dans 
tous les sens ou encore fabriquer une mire Texas a votre nom ! 
100 pages. Format 21 x 29.7, 155,00 francs francais. Disponible. 



Vous connaissez le Ti-Basic. vous possedez un Ti 99/4A et un module "Mini- 
memoire"? Vous pouvez des a present disposer de toute la puissance de votre 
ordinateur : Acces a toutes les possibilites graphiques. y compris la haute resolu- 
tion. Acces direct a la memoire centrale. Grande Vitesse dexecution (deux minu- 
tes au lieu de deux heures trente pour un meme programme). 
Ce manuel. comprenant un grand nombre de programmes commentes vous 
apprend progressivement, sans connaissances techniques prealables. a maitri- 
ser un langage tres puissant reserve jusqu'a present aux seuls specialistes. 
Par Denise AMROUCHE et Roger DID). 214 pages. Format 21 x 28. 195.00 francs 
franpais. Disponible en francais et en anglais. 
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DEMANOEZ LE CATALOGUE DE NOS PROGRAMMES OISPONIBLES SUR CASSETTES ET DISQUETTES. SHIFT EDITIONS, 27 lue du Gal Foy. 75008 PARIS 
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ASSEMBLEUR U 195 F 
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PROGRAMME ARTIFICES 



Ce programme compose de procedures sur la variation 
d'un polygone associee a des utilisations de tirage alea- 
toires de positions et de couleurs. Une difficulty en utili- 
sant les systemes recursits est souvent rencontree pour 
I'arret des procedures. II suffit done d'installer un comp- 
teurdans la procedure considered. Uneastuce permet de 
connattrete point d'arretchoisi. Dans la procedure AZ par 
exemple en demandant en procedure intermediaire 
I'ecriture de la valeur de :N (EC :N) le deroulement sur 
I'ecran des differentes valeurs permet un choix pour la 
borne desiree. 

Le programme BLABLA, comme son nom I'indique est un 

programme axe sur lelangage. II generedefacon aleatoi- 

re des poemes ce qui conduit quelquefois a des surprises. 

JanineBOUYGUES 



FCC HA5AHD £ 



POUR T 
EC "LE : 
EC '* 
SI VIDE: 
RT ITEM 



■ROGRAf-E T EST UN DROBfW^C D'ECBITuRE D'UN CtfrDflCt 
( 1 ♦ HOSARD CGMOTE !X ) :« 



EC "LE PROGRAMME O EST UN PROGRAMME D' EXECUTION C€ L'OftDSE T» 
EC 't 

St IN - :NN "STOPS 



FIN 



POLY1 2 220 



250 'STOP* 



LE LOGICIEL 
DE LA SEMAINE 



ECRITO ...sur TO 7 



ECRITO est un traitement de texte utili- 
sant a lafois leclavier et le crayon optique 
du T07. Lesysteme minimum indispensa- 
ble au bon fonctionnementd'ECRlTO est 
un T07 avec ['extension memoire 16K 
RAM, une cartouche BASIC, un contrd- 
leur de communication, une imprimante 
a impacte ou thermique (ou bien toute 
autre imprimante disposant d'une sortie 
parallele et enfin un lecteur enregistreur 
de cassettes). 

L'ensembJe des options du traitement de 
texte est accessible par menu a I'aide du 
crayon optique. 

Le menu principale contient les options 
suivantes (a part la recuperation, la sau- 
vegarde et la sortie du programme) : Pre- 
paration, creation d'un texte, lecture et 
modification d'un texte, impression d'un 
texte. 

Lors de la creation d'un texte. I'ecran est 
subdivise en trois parties ; une zone de 
travail dans laquelle se trouve la ligne en 
cours de traitement, une zone d'affichage 
permettant de visualiser une partie des li- 
gnes deja entrees, et. une zone reservee 
a la selection, a I'aide du crayon optique, 
de diverses options dont la largeurde la li- 
gne d'imprimante, etc. 
Une ligne peut contenirjusqu'a 80 carac- 
teres et etre modifiee, lorsqu'elle se trou- 
ve en zone de travail grace aux touches 
de gestion du curseur et aux touches INS 
(insertion) et EFF (suppression). II est 
possible d'abandonner ou de valider la li- 
gne en cours de frappe. d'obtenir des ca- 
racteres accentues sur rimprimante, ou 
encore de passer en mode lecture-modi- 
fication. 

Les fonctionsaccessibles en mode crea- 
tion sont les suivantes : tabulation, recu- 
peration d'une ligne {par son numero. 
toutes les lignes 6tant numerotees), mo- 
dification du type de caracteres pour rim- 
primante, envoi de caracteres de contrd- 
le a I'imprimante. etc. Le mode lecture- 
modification (accessible parle menu ou a 
partir du mode creation) permet de relire 
et de modifier le texte en memoire. Le 
crayon optique permet de gerer !e defile- 
ment et i'apparition des lignes du texte. 
Dans ce mode, il est possible de suppri- 
mer ou d'inserer une ligne, de retourner 
au menu ou a la cr6ation d'un texte. 
Voila pour la gestion du texte sur I'ecran. 
Quant a ['impression il est necessaire de 
passer parquelques petites formalites en 
fonctionde i'imprimante utilises : lenom- 
bre de caracteres par ligne. nombre de li- 
gne par page, marges gauche et droite. 
etc. 

Limpression du texte est tres souple : 
choix du debut d'impression (numero de 
la premiere ligne), initialisation de I'impri- 
mante : type de caracteres (condenses, 
doubles...), interligne, saut de page, de- 
tection papier, etc. 

Limpression du texte peut a tout moment 
etre stoppee. Le logiciel, simple a utiliser, 
efficace, confere au T07 un aspect "Pro- 
fessionnel" qui lui manquait. Disponible 
chez INFOGRAM, avec un manuel de 
I'utilisateur complet et bien fait. 

Pierric GLAJEAN 



POUR NUIT 



PlEINECRAN 
CENTRE 
FCC 1 



BC ARTI2 2 

LC 

FPUS '-50 40» 

EtC 

ART 12 2 

LC 

FPUS "-40 -40* 

EtC 

ART 1 2 2 

FIN 

POUR ART 1 3 
WE 

CENTRE 

FCC I POUR BLAE<LA :NN 

LC EC -PROGRAMME DE POEMES PAH TIRAGE ALEATOIRE DE MOTS* 

F0OS "50 -401 EC "S 

&C ARTI1 1 EC 'DANS LE PROGRAMME LES VARIABLES A. NO. CO. vE, LIE, ADV SONI PES 

L ^ LISTES PREALABLEMENT CH0IS1ES ET MODIFIASlES VOLOMTEI 

FPOS '-50 40S EC "S 

I ^ EC "LA VARIABLE NN REPRESENTS LE NOMBRE DE PHRASES DUE (.'ON 

0RTI1 s VEUT CDNSTRUIRE* 

LC EC •* 

FPOS "-40 -ftOt E c '• JANINE BOUYGUES ..... .i 

BC DONNE "A "LE UNI 

nHTI1 ' DONNE "NO "CHAT CMIEN CAILLOUS 

FIN dOnne -co "Blanc bleu rouge thiste 'malin* 

DONNE -VE "SAUTE DANSE CMONTE* 
POUR ARTI2 :N DONNE "PDV "PENIBLEMENT DOUCEHENT TENDREMENT CALMEMENT4 

FCc'hASARdT 00 * DONNE ''LIE "TDUJOURS SOUVENT PARFQIS AUJOUD - HU1 OUELDUEFOIS* 

POINT LISTE (120 - HASORD 24 fin ■ 

0> (100 - HASARD 200) 
POLY 12 275 
ARTI2 :n ♦ i 
FIN 







Nombreux autres titres. 
Demandez notre catalogue 
12 pages couleur. 




Vous avez ecrit des logiciels pour micro ordinateurs 
si vous voulez etre edites contactez-nous. 
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I- MONITEUR:140F 
Dv nombreuwi h~ivnon4 
100 '(. Lin^st)? nwlnne 
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Bon da command* 
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I V6rUhz bien si ie logiciel exists 
J dans h type de materiel que 
vous demandez. 
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PUZZLE 



Reconstnjisez un motif en assemblant correctement les 
differentes pieces qui le constituent, line idee tres ori- 
ginate !!! 

Christophe KOWALSK1 

Mode d'empJoi : 

Le programme commence par demanderle niveau auquel lejoueurde- 

siresemesurer 

II y a le choix entre : 

Le niveau 1 : facile (le motif a reconstituer est une figure geometrique 

dune seule couleur). 

Le niveau 2: difficile (le motif represente alors deux voiliersdecouleurs 

differentes, la mer et les nuages). 

Apres le choix du niveau. I'ecran s'efface el devient noir Le titre 

PUZZLE apparait au centre de I'ecran en clignotant. 



Deux grilles apparaissent de chaque cote de I'ecran : 

- celle de gauche est visualisee par ces coordonnees : 

de A a H pour les abscisses 

de a 9 pour les ordonnees. 
CeMe de droite esl quadrillee et les memes coordonnees s'afficrient 
L'emplacement a gauche est reserve pourle motif dans son ensemble 
ainsi que de reserve, lorsque toutes les pieces du puzzle seront melan- 
oses. 

La grille de droite est reserves au joueur. II y place el deplace les diffe- 
rentes pieces en essayant de reconstnjire le motif correct. 
Suivant le niveau choisi, le motitapparait precede decommentaires qui 
s'afficheront dans le bas de I'ecran pendant le deroulement du jeu. 
Le joueur doit alors regarder le dessin pendant 30 secondes environ. 
Le motif s'efface alors et le programme explique les differentes actions 
possibles et affiche des commentaires. des aides memoire qui reste- 
ront tout le temps au cours du jeu. 

A ce moment du jeu. la grille de gauche sera constitute de toutes les 
pieces melangees aleatoirement, qui constituaient auparavant le 
motif. 

Le puzzle comprend 80 pieces au total. 

Remarque : Loperation de melange des pieces peut prendre quelques 
secondes avant que le programme trouve toutes les pieces neces- 
saires. 

Comme I'indique les commentaires du programme. 1'utilisateur dispo- 
se de deux moyens pour reconstituer le motif. 



- Prendre une piece parmi le tas da gauche pour la placer stir 18 grii»d* 
droite a I endroit desire. 

- Mettre a une autre place une piece de la grille. 
Pour ces deux operations le programme demande 

• Case depart (letlre - chittre) 

• Case d'arrivee (lettre - chiffre) 

Un controls de validite est effectue apres nmroduction de la case de 
depart puis de la case arrivee. 

Si il y a incorrection (pas de piece a cet endrort de depart ou piece 
deja placee sur la case d'arrivee) le programme retfernanoe les coor- 
donnees. 

Si tout est correct la piece a deplacer clignote quelques instants else 
place a Tendroit designe sur la grille du joueur 

Apres chaque coup, le programme controle la grille du joueur S* ceae- 
ci n'est pas terminee (c'est a dife si it resteau moins une piece noo pla- 
cee) le joueur joue un nouveau coup. 

Si la gnlle est complete (plus d'espace) le programme affiche "Vous 
avez deja fini" et analyse chaque piece placee par 1'util.sateur. Lacom- 
paraison avec le motif correct permet la detection d'eventueaes et- 
reurs. Le programme affiche alors les commentaires en fonction des 
resultats obtenus. 

A la fin du jeu. le programme permet de rejouer et redemande a nou- 
veau le niveau choisi... 



130 CALL CLEAR 
140 PRINT TABIIII 
ISO PRINT TAB 131 I 



NIVEAU 2 APPUVER SU 



160 CALL KEY<0.KO,S> 

170 IP S»0 THEN 160 

ISO IF (KO-:49>*(KO>5Q)THEN 160 ELSE 190 

190 IP K0-49 THEN 200 ELSE 230 
200 NI-1 
210 RAS-4 
220 GOTO 230 

Ml ■:.■ 

240 RAS- 10 

290 CALL CLEAR 

2*0 Din «CU0,8),MC0(10,B),«(10) 

270 DATA 0O.FF81BI8iaiB181FF,0O3844443B44443B.O03C44443C04043B 

2B0 DATA OO.O0OOO71F7EE60606,O00OCOF83F07,00000O0OOOE0FClF,( 

00000001071E,0001071E78E080 

290 DATA 78EOSO, 06O606O606O7070C, OOOOOOOOOOOOEOFC, 030000000001 07 1 E , F07C0E 1 E7EE68 

Aott,oooio70EtFieiaie 

300 DATA 7BEOeOOOEOFClF03.00000000000080FO,000000000103GEia, 183060C0a00I071E, IPO 

307 1 E 78E08O, FSFOFEOFO 1 

310 DATA 060606C6FE3E0C18, I81B1BI8181BI81B. 7E0FOI030E1C3B60, 3OE1FB3E06O6Q6O6, 78E 

090. 000000010306 1 C38.3060C08O 

320 DATA 0O0103O61C3060C0, C08O, 0606060606060606, OOOOO103fJ61C3B70,70E'0C0. 191B1E1C 

0-FO7. BOOOOOOOOOEOFC 1 F 

330 DATA 000103070C1B3060,EOC080.0300.F07EOF01,0607C7F£3C, CI 820408 1O2040S0, 80402 

01009040201 .0I02O4OB102O40B0 

340 DATA FFOO 

330 DATA OO 

360 DATA FF81BlB18ieiBIFF. 0038444438444438. OO3C44443C04O438, 00,0000000000010101, 

01OI01O1O1O101O1 

370 DATA O8322478EOC08O80, 404060000808 lCF2,81030F7CF080030F,OOaOB0402070FOFO,FFF 

FFEFOCO 

3SO DATA F8CS04O40404ICFC. IFFFFFFFFFFFFEFS.FCFCFEFEFBCO 

390 DATA 0000000003070703, 0101010101818181 .010303030(030707 

40O DATA BIC1EIAID1FFFFFF,EOBOG020£OEOEOCO, 1F1F3F3F3F3F3F7F, 00G0GO03070F0F07.00O 

0000000010101 

410 DArn 0303030303060606, O6O7O7OF0F0F0F OF, OEOCOC J 9.98999B9F", IFBFBFFOF0FOFFFF.C08 
■ "XKlCO. 7FFFFF , 07O703O3 

420 DATA FFFFFEF2O226108>j,B0!E007BorXK)7CDF,0C6000O302080l03,7FFFFFFFFFFFFFFF.FFF 

FFFFFF6EDDBB7.F0FCFFFEFEFCFCFB 

«» DATA 0O73O7B0F04300F0,04040606-J6'j5090B,0E0B0B0Eiail 171C.OOOOOOB00080C020. 1B1 

I 1 72F3F3B3020, 6OF0F0C80BOB3C7C 

440 DATA 2t4F5F7F7E78604O.FCFEE2a20202!F7F.8ia79FBFFFFFFFFE,FFFFFFFCF0C0B0OI.F8F 

■■■■ 1F3F.071F7FFFFFFFFFFE 
450 DATA FFFFFFFEF8E0B'"j.FBE0GO000i071F7F,O107OF3F7FFEF9F0.FFFFFEFaC000OI0F,F8FAF 
EFEFFFFFFFF.1F7F7FFFFFFFFFFF 

460 DATA C0E0E0COEOFFFFFF,0O0O0003OF5FFFFF.0103A7FFFFFFFFFF.FBFBFCFCFEFFFFFF,7F3 
FIFIF1FOI.FFFFFFFFFF810O03 

""""' DATA FFFFPFFFFF9F0FF'.,FFFFFFFFCF81.FFFFFFFEFaB0,FFFFFBE0,O000O00000IF7F03 07 
WFF = FFE7C3,FEFFFFFFFFEFCF3F 

«B0 DATA '-''''0OCOFOFC7C3EB^OOO00030I63FSFFT.O0C04C5EFEFFFTFF,FFF3FBF3F8EBC080.FFC 
FE7F379301 1 , B0C2C7E3FFFFFFFF 

490 DATA OO14BD9DCFCFDFFF.B387CFFFFFFFFFFF.FFPFFD01C1EFFFFF 
360 DATA 36,42.56.63.9*,. 102, 103, 119. 121, 139 
5IO DATA 36.39,97,138 t 

530 IF NI-l THEM 540 ELSE 560 

540 RESTORE 510 

550 GOTO 370 

960 PE5T0RE 5O0 

570 FOP MB- I TO RAS 

5SO READ MINBI 

390 NEXT MB 

600 IF NI-1 THEN 610 ELSE 630 

610 RESTORE 270 

620 GOTO 640 

630 RESTORf S90 

640 FOR 1 = 1 TO RAS STEP 7 

650 FOR J-NtllTO M<1*1) 

660 READ A« 

H I. CHAR(J,A»I 

*.!}'.' riEXT j 

wo next i 

'..., rem ••••initial i-sdtion «m* coulmr«»» 

710 IF NI-i THEN 720 ELSE 770 

TV- FOR CO-9 TO 14 

I » CM L aXOR'CO.5.8) 



■ no 



!-,■■ 


CALL COLOR (1. 1". 1 1 


r* ■ 


GOIU B4'J 


/■■■ 


RESrOftE B20 


■■■ 


i ';■ CO i rn io 


■ ■ ■ 


READ A.B.C 


901 - 


CALL CCLORIA.e.CI 


BIO 


ME XT CD 




data 1,19,1,2.2,13.4,15.15,9 


11.9,6.12,7,13, l '.. .'. 13.14,13,8,1 


B30 


■■i6. is, ei 


B40 


PEN •■■■c UgnotMwnt du tltn 


B30 


CM i p I M 


B6C 


CM i. SCREEM(2I 


i,/., 


CALL HCHARttO, 14.SO) 




CALL HCHARdl'. I3.B3) 


B90 


CALL HCMAR(12. 16,901 


■,.,.. 


cali ^CHAftti':, 17,901 


910 


CALL HCHARd4.IB. //,• 


920 


CALL HCHARI13, 19.69J 


■> ■■ . 


FOR I- I TO 14 




FOR CO-3 TO 8 


930 


CALL COLORICO. 1,11 


960 


NEXT CO 


■//•• 


NEXT I 


-„.,. 


for ca-5 io n 


990 


CALL COLORICO. M . i ■ 


i 


nexi i a 


I01« 


CM i ca DRI 


1020 REM ■■■•dn.in d» 1 * anil* 




D-64 


IO40 i 'iv u . ro 


1050 CALL VCHAF i,t, ■. '.]■■■ 


106O D-D«l 


1071 


CM 1 >tr.HAR(/.V,D> 


1 ■■:*■ 


i A i HCHM 1 './ 16.01 




ii i <7 THEN 1130 


1 fr 


call HCH*R(V-14,21,D~I71 


1 1 1' 


i M ' i IV 14. 3. D ' ' 


1 1 7" MEX 1 V 


1 1 ■ 


■..it AH 113, 3,33) 


114< 


1 •■' ' ' 113,21 ,33i 


l IS) 


CflU. HCHAftl 16,3. ii' 


i 160 ' M i HCHMtl 16.21. 38) 


i i ■■ 


i ■ ' i HOW • i .'.-.. -.'/I 


in." 


i mi i .« MAR! i '.:■! . J9I 




ii "« BARDI / km N i 1 W IS1N' 


120" 





1220 OOSUB 33 IO 

1230 L4--0U1 VA t 

1241* H-24 

1230 V=B 

■260 0O8UB 3310 

1270 GnSUB SS60 

128-1 FDR 1-1 TO 4OO0 

I . KJ -ii • I 

I ■■•■• NAM. HCHAR{23, 1.32,64) 

l -w i * ->-i.j ifim [ON J fl FACE" 

■ ■■ 

1 J30 v-7 

1 J40 BOSUB S310 

1330 ftSH ••■■-Hjci-mnt du d»*«lA44< 

I '■■■ ' in- I^B TO 17 

i 170 CAU HCHAft<I,6,32,8) 

■ NEXT I 
l "'■■ CAU ' 1,1,32, 121 

i4oo i * 'j i -.( i ' i- du voua vou 



1410 n-'.\ 
1420 ' 



1460 ■■' 

1470 008UII 

l «BO ' OF [-1 TO 300 

14' 'ii . r | 

IS I i VI !, 

1 •••■pi«« 

13 o ' "■ r ■' in i ■ 

I : 

AMI DMI II 
1330 "i INI ' I0«RND1 ■ 
1360 Bl i'ii B«l MB ■ 



1370 
I3B0 CM 



I ^ ■'•l.l " N 1340 i i Bl 1380 

■ i- ■ I ,J,HC(AI ,BI>> 

tAI ,81 ■ ■■ 



1620 i ■ --. VOUfl m Rl ' 0N8TI UIRI i 

1630 i' 

|/i40 7-1 

'.-. .■■ OOI "C 1310 

1660 l *-■' inn- i i i A ■ ■■■■■ i , | .-, ■ 

[670 H ■' 

Iftft" V-6 

1690 SOSUB [310 



177f> ROSUB 35IO 

1780 L*--_ REBISP03ER LES PIECES DE" 

1790 H-4 

1800 V-3 

1810 GOSUB 3310 

1820 L4--VOTRE GRILLE" 

IB30 H-3 

1840 V-IO 

1830 GOSUB 3310 

I860 FOR 1=1 TO 800 

1870 NEXT I 

18B0 CALL HCWARU, 1.32, 1601 

IB90 CALL HCHAR(23, 1,32,64) 

190O L*»"hPPUYEZ SUR D 



19: 

19SO y 
I960 \ 

1970 t 
19B0 I 
1990 )■ 
2000 \ 
2010 C 
2O20 I 
2030 ) 
2040 ^ 

2060 
2O70 
2080 
2090 
2100 



■23 
■2 

GOSUB 3510 

CALL kEYCO.K.Sl 

IF S=0 THEN 2060 

IF K=65 THEN 2830 

IF (K-6B1*(K-B2)THEN 21C 

CALL HCHAR(23, 1,32,64) 

L«'"CASE DE DEPART" 



290 


NEXT J 


2990 


NEXT I 


3000 




3010 


IF KIMS THEN 3020 ELSE 30O0 


3020 


CALL HCHARI24. 1.32.32) 


.-'■.'_'■. ■ 


L»"-CE N EST PAS ETONNANT- 


3040 


H-24 


3O50 




3060 


GOSUB 3510 


3O70 


GOTO 3350 


3080 


CALL HCHARI23. 1,32,64) 


3090 


IF KI-0 THEN 3100 ELSE 3170 


5100 


L»--BRAV0 AIJCUNE ERREUR- 


3HO 


H=23 


3120 


V»7 


3130 


GOSUB 3510 


3140 


FOR 1-1 TO 400 


3130 


NEXT 1 


3160 


GOTO 34 IO 


3170 


L4--DOHT1AGE VOUS AVEZ "S.STR* 


3180 


H-23 


3190 


V-2 


3200 


GOSUB 3310 


3 2 1 


IF KI-1 THEN 3220 ELSE 3290 




L»."ERREUR- 


3230 


H-23 


3240 


V-23 


S230 


GOSUB 3310 


3260 


FOR I-l TD 400 ^jk 


3270 


NEXT I — - f\ 


3280 


GOTO 3350 *""■ ■ ^%_|*1 


S290 


L»-"ERREURS" ■ "1 *^ ^J 


'.-.'■JO 


11 v 



4/A 



: :. i ■■ 



-23 



ELSE 2060 




2340 
2530 
2360 



2390 
26O0 
2610 

/>••■• (.run 



IF S-0 THEN 2130 

IF <KK63)*(K1>72)THEN 2130 

CALL HCHAR(23. 19, Kl) 

call hEvio.ir.si 

IF S»0 THEN 220O 

IF (K2<4B)*0:2>37>THEN 2200 

IF K2-36 THEN 2240 ELSE 2260 

CALL HCHAR(23,20,38) 

GOTO 2300 

IF K2-57 THEN 2270 ELSE 2290 

CALL HCHARI23.20, 39) 

GOTO 2300 

CALL HCHARI23.20.K2) 

IF K-6B THEN 2310 ELSE 2330 

F-3 

G-36 

GOSUB 3B40 

GOTO 23HO 

F-21 

H-37 

GOSUB 3840 

IF H-l THEN 2110 

L«»"CASE D ARRIVEE" 



GOSUB 3510 

CALL KEY (0,1 3,9) 

H»0 

IF S-0 THEN 2430 

IF (X3<;651*(K3>72irHEN 2430 

CALL HCHAR(24, 19.K3) 

CALL tEV(0.K4,S) 

IF S-0 THEN 24B0 

IF (K4<48>*(K4>37JTHEN 2480 

IF K4-36 THEN 2920 ELSE 2340 

CALL HCHAR(24.20,3B> 

GOTO 2380 

IF K4>37 THEN 2330 ELSE 2570 

CALL HCHAP<24,20.39) 

ROTO 23B0 

CALL HCMAR(24,20,K*I 

GOSUB 4020 

IF H-l THEN 2390 ELSE 7(.'»' 

REM •"•apphicpmsnt. rtif» pinrpi 

IF C.-fca THEN 2620 ELSE 2640 



S660 

'.:■■ 

;.'>:■• 
. ?:■■■ 

2710 
2720 
2730 
2740 
2730 
2760 
2770 
J780 
2790 
2800 
ZB10 
M20 
. ii 
2840 

2B70 Mi'. un ran 
-.un.. i i--vorowi 
. 140 H ■' 

. 'T. BOSUB SI' 



FOP 1-1 TO 10 
CALL HCHARfFl.EI.) 
CAl L HCHARIF1.EI .1 
TIF. X T I 

FOR I-l in 10 
CALL HCHARtF2, E ";■ I 
CALL HCHARth2,E2,l 

REM ••■•fin d u j.t 
FDR 1-8 TO 17 

FOR J-22 TO 29 
CALL OCHARf I.J.V) 
IF V-37 THEN : 
NEXT .1 



ELSE 2780 



rjf I 



. 12,641 



Mill, . :| ■.. 

CALL HCHARi: 

POTO 1020 

CM i HCHARO . I . 12,641 

i . •-■■vnur. AVEI m:.u, i inI" 



W30 
I960 
2970 



1 ro 17 

FOR J-22 UJ 29 

CM i Bl 'Mi- ' I, J, 7) 

[l / NCOtl .'..I 21 < rHCN 

ii Bl -''ii" 
i l-i I • I 



3320 GOSUB 3310 
3330 FOR I-I TO 400 
3340 NEXT I 

3330 CALL HCHAR (23. I . 32. 64) 
3360 L4--VOICI LE MOTIF CORRECT 
3370 H-24 
3380 V-5 
3390 GOSUB 3310 
340O GOSUB 3560 
3410 CALL HCHAR (23. 1,32.64) 
3420 L*-"UNE AUTRE CHANCE tO HI) N 
14 EO H" .' ■ 
3440 V-3 
3450 GOSUB 3310 
3460 CALL I-EVI0.K3.S) 
3470 IF S-0 THEN 3460 
3480 IF K3-79 THEN 130 ELSE 3490 
3490 CND 

33O0 REM ••••nou5-proqr*ir>iBB. d'afri 
3510 FDR I-l TO L.ENIL4) 
ZZ20 CALL HCHAR(H,V*t,AaC(SEQ«<Lt>, 
3330 NEXT I 



3560 TF NI-1 THEN 3370 ELSE 3%9i 



3570 RESTORE 3810 

$380 GOTO 3600 

1390 RESTORE 370O 

I6O0 F DR I-B TO 17 

36IO FOR J-6 TO 13 

3620 READ PO 

■■ ' .'.i i HCHAR I I,. 

3640 NEXT J 



I NEX 



ELSE 3690 



NI-I THEN 3670 ELSE 3690 
3670 RESTORE 3810 
36B0 GDTD 3700 
3690 RESTORE 3780 
3700 FDR I-l TO 10 
3710 FOR J-l TO 8 
3720 READ PO 
3730 MCII,J)-PO 
3740 MCOU.J)-HCd. 
3730 NEXT J 
3760 NEXT I 
3770 RETURN 

37BO DATA 136, 137. 138, 139. 140, 141, 121. 4(1. 142, 143. 144. 145. 
146, 147. 122, 123, 148. 149. 150, I St. 132, 193, 134, 13 
3790 DATA 56.154,133,40.126,127.40.42.57.136.1 
129,40,42,30,39,138, 106. ISO, 131,40,42.60.61. II 
3800 DATA 132, 133,96,97.62.63, 102, 108, 1 14, 133,98,99,100, 
40, tO I. 109. 110. 1! I, 112. 113, 114, 115, 116, 1 I 7, 1 If 
3810 DATA 97,97,97, 102, 98, W, 100,101,97, 102, II 

109, 11". l i 1,1 12, 11 ". iia.i 13, H6, ii 7,47, 1 IB 
19,120,97, 121,122.117,123,124,123,97, 126, 127, 

I I.'-' '.97,4 ', I v. I 1,134,1 -,-,. I ■/, 
'7. 137,97,97. 136.97,97,97, 137,97, 

I 36, 1 8. I SB, 1 38, I m 

-■■j all BCHAR(23, i''. i i . 

I860 CAl i i-.i HAR (23, 20,1 21 
'ii/" i I "1 ! -64 

i"i N 1890 I i SI J9I0 



106, 107, 101 
3820 DATA r 
97. 128. 1?9. I 

J830 data 97,97,97,4 
97.97.97. i [6,97,97, l 
J840 REM « 



TI'J. 



i miiui J430 



(410 M i 



■ 9 Ii" N ■■''.'" i i j [940 



i 2 v 

(9 " ' 9S0 

■...;., , ., j.-HQ 

950 i 1*4 it 
J460 r l-K2*0 

1970 ' ai i BCHARIF1 .1 I, XI) 
"■■it" ii 11*0 THEN [990 I I m ■>■ 
1990 r i HAD (23, l . *.'. -■-') 

■i H I 

4010 Rl imi.n 

4020 MM ntlyu du coup>< 

40 ■■ i "i i i. i'. 1, 19,1 SI 

4040 ' p.i i 0CNMt24,20,l 4) 

4030 • i ' '64 

4O60 II ' ■! '■ r N 4"'" mm ' 



.1 I i.i HAf 'I 
II | i" HAJ '. 



t '■■ M Bl 4190 



SUPERMAN 




SUPERMAN 1 est unjeu original oil les quality graphiques 
et sonores du Tl 99 sonl mises en valeur. Le programme ° 

est structure de maniere a obtenir une optimation maxi- 
mum (declaration des variables dans I'ordre inverse de 
leur frequence d'utilisation (200 a 230) sous-programmes 
!es plus utilises places en fin de programme, peu de varia- 
bles etc... 

Pour les faineants du clavier (dont je fais partie !) les lignes 
300a870et1530a1600neserventqu'al'affichagedesre- /*"/* ^ 

gles et peuvent ne pas etre saisies lors d'une premiere A ' 

frappe. le programme fonctionne sans ces lignes. V.^O 

Une precision, pendant le deroulement du jeu, une pres- 
sion sur la barre espace provoque une pause musicale 
(pour se detendre les doigts ou repondre au telephone) 
une seconde pression relance le jeu. 
Les premieres minutes du jeu sontassezcalmes pour per- 
mettre de se familiariser avec le decor et la manipulation. 
La regie du jeu est precisee dans le programme. 
Unedernierechose, pourquoiSUPERMAN 1... Vous lesau- 
rez tres bientot ! 
Non. non, non le Tl n'est pas mort !!! gk 

Alain LECCEUVRE M A CV 

190 OPTION BASE 1 :: CALL CLEAR :: RANDOMIZE :: CALL SCREEN 1 1 1 ) m » 

200 A1S,A2*.A3».A4«,A3«-"" » ' 

210 X.Y.L.C.TEHP.CTS.BON-O * m 

220 dim coos u i >. cops u t>,cox(4.e> 

230 ITS, CPX.POR, SCORE, !T,J,I-0 . - 

240 FOR I-I TO 12 :: CALL COLOR* I ,3, I ) : : NEXT I -« » 

230 DATA 1, 1. 1. 132, 112, 112, 112, 112,112. 112. I0B ° ^^g^% » 

L'c: D"Ti 0.400,400.0,400,400,400,0,-200,-400,-400.0,-100,-400,-400,-200 * ^^^% m. M 

270 DATA O, 600,600,0,600,600,600.0, -400. -90O. -•500,0,-900,-900,-900,-400 ^^^ »m M^a^ 

280 FOR 1-1 TO 11 j: READ CQDS(I):r NEXT 1 ^^ W ^A %^F 

290 FOR 1-1 TO 4 :: FOR J-I TO B :; READ COX(l.J):: NEXT J :: NEXT I ^.^e^^La^ %^^ ^^ 

300 DATA I. lO, SUPERMAN 1,2,10.--=™=.== ^^0^^L ^T^*» 

310 OATA 3. i.Suoernun se deplace * votre *^^\ » ^^P* 

320 DATA 4,l,gre dans tout les jent avec .j-Mj-v ■*#)»•> » ^ 

330 DATA 3.1.1a m«r.„tte 1 A W W W j* w 

340 DATA 6,1.11 doit sauver : _a«fa«k»» M *^^ ^1 

330 DATA 7,2,1-Le cyclist* imprudent qui W " %m-^# 

360 DATA 8.4.roule au mi 1 i eu de la rik ^-*%»^^ L^*\ 

370 DATA 9, 4, rout, et qui se fait _^0^ |\^J W 

380 DATA lO.a.ecraser par une auto dont ^^^^ ■F%fc^^ 

390 DATA 11,4.1a vltesse eat variable. ^L^B P^ 

400 DATA 1 3,2,2-L'enfant qui joue sur la ^^$W 

410 DATA 14,4.passerelle et qui tombe a ^^ 

420 DATA 15,4, 1 -eau.il faut I*attrapp«r 

430 DATA 16,4,avant qu'il n'atteigne 

440 DATA 17.4,1a droits de 1'ecran. 

450 DATA 19,2. 3 -Le Dal Ion que 1 'enfant ^m» -.X 

J&l- DATA 20,4,enp*die Oan 5 1'arbre '' ^Hh ^j- — , J r\'' 

470 DATA 21,4,avant qu'il ne retoinbe. <'JIHbv' " 'id f V '■ 

430 ££"- l,2,4-L'en+*nt au ballon ouand /a^L^ay^ " V) j "'"''' 

490 DATA 2.4.il s'aventure >ur la mK^K& J- •"& ' '' #>'j 

300 DATC 3,4,rhi 05 , w au risque de se '/'^m^^^^^^^' ■■■'■ t >V 

520 DATA 5, 4. can.. on. // MfjifiF <>■■ j/Mlfij 

530 DATA 7,2,5-Les enfants qui toinbent // // Mfff sMl 

340 DATA 3,4, des fenetrestla Vitesse // // .'flf jO 

350 DATA 9,4.de la chute augmente en // /jf /g O'': 

360 DATA 10,4 

370 DATA 14,1,. _. 

30O DATA lS.l.il faut attrapper 1 "enfant / A«W5oJ . : V V 

390 DATA 16,1, (ou '- h»ii„„i—, „.-__...„► i .. / / /vlMfj/m .' y ^ r 

600 DATA 17, I.bou 

610 DATA IB. I , /en 

620 DATA 19,l,l'ttr#n ipm-ne noirmi . / / // fWE^S 

630 DATA 21,1, Vous ne pouve; effectuer / / // fM : ^ ~* - ft, 

640 DATA 22,l,qu'un sauvetage a la fois / /// £mJ~ : i\\. y4r V/^^ % 

630 DATA 1.1, Un bonus d* lOOOpt 

660 DATA 2,I,accorde en debut de partie / //■ JSJjT 7^"" "^JJL ~ K^L^(^^ S*^\ A 

670 DATA 4, 13, POINTS. 3, 13, / / <V *" 

690 DATA h. 8, Niveau I ' Ni veau 2 / y^/j 

690 DATA 7.B,' •■-**■'-! iffM^ 

700 DATA 8, 

730 DATA II. 2, Ballon' '2O0! '4O0! ' / 

740 DATA 12,3, ! ! ! 

730 DATA 13, 2, Enfant ' 400' 40O-60O ' 900 

760 DATA 14,3,' ' • ! ■ 

770 DATA IB, 2, Niveau 1 si score <50OO pt* / 

780 DATA I9,2,Niveau 2 si score >5O0O pts 9 ' I '$ l\ 'Jjj 

790 DATA 21,2,* pour sauvetage reussi ' 

900 DATA 22,2,- pour saov-tage nanoue 

310 DISPLAY AK12.11 i "Voul »i -vous les regies'"- 

B20 ACCEPT AT(12,2B)BEEP VALIDATE ( "OtJon" I 9IZE ( 1 

B30 IF A1S--N" OR Al»-"n" THEN 370 

B40 V-19 :: RESTORE 300 :: GOSUB 1330 

BSO Y-17 :: RESTORE 430 :: GOSUB 1330 

B60 Y-17 :: RESTORE 630 :: GOSUB 1530 / 

870 CALL CLEAR ' 

BSO DATA 63,000O0vOOO<.03IFFF,66,0O0OOlOF7FFFFFFF,67,073FFFFFFFFFFFFF 

B90 DATA »,0«>O0<XHX»BOB0S09O70303O3O2O202060OOOO0O020A0AO20C0eOBOBO8OB0e0C0 

90O DATA 120, 0000000000031 FFF, 121 , 0OO0OI0F7FFFFFFF, I 22, 073FFFFFFFFFFFFF 

910 DATA 72,FFFFFFFF,73,FFFEFCFBF0E0C090. 73.010103O307070F0F 

920 DATA B5,FF8131B18181B1FF,76.FFFFFFFBF7E7CFBF,74, IF 1F3F3F7F7FFFFF 

930 DATA 90.FFFEFCEOeoEOCOB0 1 B3.0101030307060FOF 1 B4,FFFF06FEFCOCFBFa 

940 DATA 89,FF7FCF0707070301,81, I81F3F307F7FC1FF, B2, 30FOE060COCOB030 

930 DATA 93.000O0nO0183C7EFF,91.0103070F0F070301,92,B0C0E0F0F0E0C0fl0 

960 DATA 93, 0103O707073F7FFF, 94, BOCOEOEOEOFCFEFF, 96, OFOFOFOFOFOFOFOF 

970 DATA 97,FOFOFOFOFOFOF0FO 1 9B,OF0F0FOFlF3F7FFF.99,FOFOF1iFOF8FCFEFF, 105.FFFFFFF 

F FFF F 9999 

980 DATA 102.FFFFFFFFFFFFFEFC, 103,FFFEFaF0COB0OO00, 101 .FFFFFFFFFCFBEOCO, I00.F0E0 

990 DATA 64,0.80.0,77.0, 104,0, 68, FFFFFFFFFFFFFFFF,8B,FFFFFFFFFFFFFFFF , 86, FFFFFFF 

FFFFFFFFF 

1000 DATA I36.0OOOO00O0101O103O31F3F664C3910O93040D9F9FEFBF0E080 

101O DATA 124.0OOO0OO0O00708162632FFFFFF383ai00O00000u0OFEFFFFFFFFFFFFFFIClC0B 

IO20 DATA !2B,000O000O3F44B484FFFFFFFF3810O00000000000B0402010FBFEFFFE38100000 

103O DATA 132,O0O00OO7O70F181FlE0E37494A3000000O000000000<tO0906O20B04B4B3000O0 

1040 DATA I 16.00000001010001070402000000000000000000COC080COF01020 

1050 DATA 140.0C029B9F7FlFOF07010000000000'i''iOOOvOO':"Xj'je08080COCOFBFC66321A0810 

1060 DATA I (2,000000000003031 10F030303020202060000000000flOBOOOCOflOAOCOeOB060CO 

1070 DATA 10B,OuOOOOOOOOOCi00000000000010TC3C!8000000000''iOOOOO' r iOoriO':.OOOOOOOOnrjr, 

10BO DATA 0,0 

1090 DATA 1,1,64,4 1,2, 13.68,7,2,23,64, 19,3. 10. 104, 10,3,20,86,3.3.23,64, 19,4, 10, I 

04,10 

11O0 DATA 4, 1 1,80, 2, 4, 14,80,2,4, 17.90.2.4,20,86,3,4,23,64,10,5,5,93.2.3, 10, 104. 1 

. .' . 

1 HO DATA 5.20,36,3,6,5,38,2,6. 10. 104, 10,6, I 1,80.2,6, 14. BO, 2. 6. 17,80,2,6.20.86.3 
1120 DATA 7, 4, BB. 4, 7, 10, 104. 10, 7.20, B6. 3. 8. I, 38, 6, 3, 10, 104, 10,8, 11,80,2 
2,8, 17,30,2 

1130 DATA 8,20,86.3,9,4.88,4,9.10.104. 10. 9, 20. 86,3, 0.3, 38, 2, 10, 10, 104. H 
80,2 

1 140 DATA 10, 17,80,2, 10.20.36,3. lO, 23. 77, 2, 1 I , 10, 104, 4, 1 1 , 14,85, 2, 1 1 . I 6 
,24,77,2,12. 10,104,4 

1130 DATA 12, 14,83,2, 12, 16. 104,4, 12.2 3,77,3, 13.22,77,4, 14, 1. 72, 20, 14,21 
1160 DATA 14,26,72,7, 15, 1,77, 12B, 16, 1, 103,32 
1170 DATA 19,1,30,64,21,1,36,123.23,25,23,23 

11SO DATA 2,10,63.2,11,66,2,12.67,2,20,120,2,21.121,2,22.122 
1190 DATA 3, 29, 76,6, 4, 93, 6, 7, 94,6. 28, 73, 6. 29, 74, 7, 3, 93, 7, 8, 94 

1200 DATA 7,27,73.7,23.75,3,2,91,8,9,92,8,26.73,8,27,77,8.28,74,9,3,89,9,8.90 
1210 DATA 9,23,73.9.26,77.9,27,73, 10, 4,89, I 0, 7, 90, 10. 24, 73. I O, 27, 74, 11,9,9s), 11 
.97, 11.20,86 

1220 DATA 11.21, 102, 11,22, 103, 1 1 . 23. 73. 1 1 ,26, 73. 12, 5. 96. 12.6. 97, ! 2, 20, 101 
1230 DATA 12,21,100,12.22,73,12,26,74,13,5,99,13,6,99,13,21,73 j£ 

11 




I DATA 5, 15.*. 

' DATA I, lt,3. 
■ DATi 163, if,: 



'. 3.04,20, 

I, IS, .'. r.?.9, 13, 4, ■■ . 
.. 12. l,4.a. _ . 
247,208,294,37 

■-■.zoe.jM. 



A3* 



in- date, r.22-1. .-...■. 

1300 DATA 1. 163. 163,247, rue 
1310 DATA 5, 247, 247,311, STO 

1320 CALL CHAPPAT(83.A1»,67, 

1330 CALL CMAR(33.AH,59,Ar».60.A3*.61.A4*.6; 

13*0 FOP 1-2 TO 14 t: CALL COLOR ' 1 . 2. 2 > : : NEXT 

1350 f-ESTOPE 880 11 CALL SCSEEri < 3 > : : CALL MAGNI 

1360 FEAD 1.A1* : : IF I ■: O TM6N CALL CMAR'I.Als 

1370 READ I.J.C.L i: IF I- 23 THEN CALL MCHARtI 

1360 READ l.J.C :i IF t<>30 TMtN CALL MCHAfi ' I . J 

1390 READ l.J.C :: IF I '.. THEN CALL COLORM.J.C 

I4O0 DISPLAY AT (2:'. I3)SliE(5>:"rl - ■• 

1410 SCOPE-100O j; GOSUS 2110 

1420 GOSUB 1760 :: GOSUB IBOO 

1430 GOBUB 1820 :: GOSUB 1840 .. GOSUB 1B60 

I*4i> CALL SPRITEOI. 136,7.9. 17.42. 124.2. 1 lCr,24B. 

1450 GOSUB 17BO :: GOSUB 17SO 

1460 GOSUB 2450 

1470 GOSUB 2290 :: GOSUB 2450 

1480 GOSUB 2120 :! GOSUB 24SO 

1490 IF RND ,5 THEN G0SU8 1920 :: GOSUB 2450 

1500 GQSU& 2120 :: GQSU8 24SO 

1510 GOSUB 2290 :: GOSUB 2450 

1520 GOTO 1460 

1530 CALL CLEAR 

1540 FDR K-1 TO V 

1550 READ 1 , J.A14 

1560 DISPLAY AT<I, J1SIZEIZB1 :A1» 

1370 NEXT ' 

15B0 DISPLAY AT (24. 101: 

1590 CALL KEVIO, [.Jill 

L&OO RETURN 

1610 REM MUS 

1620 RESTORE 1270 

1630 READ IT 

1640 IF 1T=4 THEN 1620 

16S0 IF IT<5 THEN C-1T :: GOTO 1630 

1660 CALL SOUND 1 100. IT. 2) 

1670 ON C GOTO 1680. 1690,1700 

1680 CALL SOUNDllOO. 330. 10. 413, 11.494. 121:: GOTO 1710 

I69CI CALL SOUNDllOO, 220, 10. 277, 11,330. 1211 : GOTO 1710 

1700 CALL SOUNDllOO, 247. 10,311. 11.370. 12> 

1710 CALL KEV(0,I,J)ll IF I<>32 THEN 1630 

1720 RETURN 

1730 REM MOTD 

1740 CALL P0SITI0N(-3,L,C):: IF C-12'.l THEN 1740 

1750 COPS<4l-l :: CALL SPRI TE I»4. 1 32.3. 128, C-12.0, 31 : 



1770 CALL SPRITE'43. 112,5. 140,25) :: RETURN 

I7B0 REM BALLON 

1790 CALL SPRITEteil, 108.5.89.251:1 RETURN 

1S00 REM -6 

1BI0 CALL SPRITE(«6, 112.5,89, 15)i : RETURN 

1320 REM MB 

1330 CALL SPRITE (•B. 116.5.23.8!):: RETURN 

1B40 REM «9 

1B50 CALL SPRITE(-9. 116,3,25, 105) :: RETURN 

I860 REM »10 

1670 CALL SPRITEI410. 1 16.3.25. 129):: RETURN 

1880 REM ALERTE 

1B90 CALL S0UND(-300. 660,2.662, 2,663, 2) 

190O CALL 50UND!-3O0,BBO,2,BB2,2,BB3.2) 

1910 CALL S0UNDI-30O.99O. 2. 992, 2.993.2) 

1920 RE1 HAZARD 

1930 IF RND<.5 THEN CALL MOTION (43. 0, INT (RNO- 

1940 IF POR-1 THEN RETURN 

1950 IF TEMPO THEN RETURN 

1960 IF CDPSI5»*C0PS(6>*C0PS<8)*C0PS<9)'COP»<10: 



■ - ■ . . ■ ■ . " . ■ ■ 

I, 
320,277,294, 

:oe.r'4. ■ ■ . -: . ?4 



SOTO 1360 
C.LHi EOT) 
!! GOTO 1300 

. ■ ■ 



1970 IF RND<.4 THEN CALL LOCATE 143. 146. 41 ) t : C0PS(3)-1 

CALL M0TI0N(43.0,SC0RE/10O0*3) :: GOTO 2060 

I9B0 IF TEMP<6 THEN 2030 

1990 IF C0PS(ll)-O AND RND< . 2 THEN CALL LOCATE d 
060 

2OO0 IF TEMP<10 THEN 203O 

2O10 IF C0PS(6)*C0PS!3>*CDPS(B)*C0PS(9>*C0PS(10 



2020 CALL L0CATEIw6.110,2: 

2060 
2030 IF COPS*B)*COPS(9J*CI 



2.I10.24B):: CALL 
•COPS { 10) *COPS (3) *COPS I 
CALL PATTERN{»I.3A) :i C 



■61El.SE CALL M0TiaN(43.< 



THEN 1970 ELSE 19BO 



CALL PATTE«N1«5. 116 



■0 AND RND<.2 THEN 2020 ELSE 203 
TERN(46.36) : : C0PS161-1 :: GOTO 
O AND RND'. 3 THEN 204O ELSE 203 
L MOT10N(«l,SCORE/2000*3.0)ii CO 



(I.J-3)' 



THEN CALL SOUNDIE 






RETURN 



AND COPS ( I ) 



THEN ITS-: 



CALL P0SIT1OM 



2040 I-INT(RND»3)*B : 

PS<I)-1 : : GOTO 2060 

203O RETURN 

2060 GOSUB 1080 :: GOTO 2O50 

2O70 RE* SCORE 

20BO IF SC0RE-:-500O THEN 1-1 ELSE 1-3 

209O 1-I-BON :: SCORE -SCORE* COX 1 1 . J-3 

,2,234,2,233.2) 

2100 IF SCOPE'O THEN STOP 

2110 DISPLAY AT<24, IB) SI ZE 16) 1 SCORE li 

2120 REM PRISE ET POSE 

2130 CALL KEY(1, I.J) it IF K>19 THEN 2280 

2140 IF POR-l THEN 2220 

2150 FOR 1=4 TO 11 11 CALL COINC '•! . ■ I . 20. I 

: GOTO 2180 

2160 NEXT I 

2170 GOTO 2280 

2180 CALL M0TI0NI4I, 0.0. 412, 0.0. HITS, 0,O: 

2190 CALL SOUNDllOO. 660. 1,662. 1,663, 1) 

2200 CALL SPRITE(4!2,C0DSUTS) .5.L.C) t i CALL DELSPRITE 

22 lO GOTO 22B0 

2220 CALL H0TIONI-I.O,0,412.O.0): i CALL POSIT ION (Ml ,L. C) 

2230 IF L<160 THEN 2280 

2240 CALL SPRITE (M28. CODS (ITS) . 16,L.C)l I CALL SOUND ( 100. 660, 1.662. 1 .663, I ) 

2230 COPS! 1TS1-0 

2260 ON ITS GOSUB 32767, 32767, 32767. 1 730, 1 760, IBOO. 32767, 1B20. 1840. 1860, I 7B0 

2270 CALL DELSPRI IE (Ml 2) : i J-ITS n ITS-0 II PDR-0 :: BON-0 n GOSUB 2070 

22B0 RETURN 

2290 REM COINC 

230O CALL C0INC(M3.M4, 10. ITHi IF IT THEN 2380 

2310 CALL C0INC(M2,M6, 12, IT) l: IF IT THEN 2390 

2320 CALL COINC (M5, 1 40, 245, 20, IT) i i IF IT THEN 2400 

2330 CALL CO INC* MB, 120. Bl , 1 6, IT) I i IF IT THEN C-B :: GOTO 2430 

2340 CALL C0INCIM9, 12O.103, 16. IT) ! I IF IT THEN C-9 n GOTO 2430 

2350 CALL C0INC*M10, 120, 129, 16, IT) : : IF IT THEN C-10 II GOTO 2430 

2360 IF COPSUll-l THEN CTS-CTS*1 II IF CTS-30 AND ITS': '4 THEN 2420 

2370 RETURN 

2380 GOSUB 1730 :: BON-1 :i J-4 :: GOSUB 2070 II CALL SOUND(400. -7. 2) i : GOTO 237 



1,1., O 

)n POR-l 



2390 BON-1 II J-6 M GOSUB 207O ll CALL LOCATE (M6, 89. 9) i t C0PSI6J-0 


i GOTO 2370 


24O0 CALL P10TI0N*M3. 0.0)1 1 J=5 tl BON- 1 n G05UB 2O70 it C0PSI31-0 




2410 GOSUB 1760 it GOTO 2370 




2420 BON-1 t: J-ll :! GOSUB 2070 tl CALL LOCATE 1 ■ 1 1 , 89, 251 i I CTS-0 l 


COPSfl 1 l-u 


! t GOTO 2370 




2430 CALL MOTIONOC, O.Olii BON-1 ii J-C II GOSUB 2070 II C0P5IO-0 




2440 ON C-7 GOSUB 1820. 1B40. I860 ii GOTO 2370 




2450 REM DEPL 




2460 CALL KEY <0. I , J ) 1 1 IF 1-32 THEN GOBUB 1610 




2470 CALL JQVSTI1, I, J) :: IF I<0 THEN C-140 ELSE C-136 




2480 CALL PATTERN(M1,C) 




2490 IF POR-0 THEN CALL MOTION (Ml , -5»J, 3*1 IELSE CALL FlOTIONfMl , -3»J, 




2500 CPl-CPX*! ■■ IF CPX>30 THEN CPX-0 it TEMP-TEMP*! 






ADDITIONS A RETENUES 



C'est un programme a interet pedagogique. 

Ce programme s'adresse plus specialement aux enfants 

de niveau CE i, De plus, il a ete concu pourque des enfants 

handicapes moteurs puissent lutiliser sans probleme. En 

effet. un curseur se deplace sous la serie de chiffres, I'en- 

fant n'a alors plus qu'a taper sur n"importe quelle louche 

pour afficher le chiffre voulu. 

II faut trouver le resultat d'une addition (ce resultat etant 

toujours inferieur a 100 mais il est possible de modifier le 

programme pour obtentr de modifier le programme pour 

obtenir des nombres plus importants). 

Le programme systematise I'utilisation de la retenue me- 

me si elle est nulle. 

En cas d'erreur, I'ordinateur propose alors de verifier le 

resultat. 

Si apres verification le resultat n'est toujours pas correct, 

I'ordinateur expliqueraalorsaquel(s)endroit(s)!'erreur(s) 

a ete commise(s). 

Franck MANGION et Jacques DUPONT 

Anoter: il est possible demodifier le programme pourob- 
tenir des multiplications simples a retenues. 



ADDITIONS A RETENUES I 



5 y-esG-a 




IB CLS 




20 PRIM TQBUE) 




38 PRINT T06<1£) 





40 print T-nsaEt 

44 FOR 1-0 TO 1000 

43 NEXT I 

46 CLS: IF C-20 THEN 1180B 

67 G0SUB7B88 

AS PRINT3936. "N0TE"iV" / - 1 B 

A9 Z-B:G«G*2 

50 PPINT 36A.-B 1 2 Z 4 5 5 

32 PRINT3103. -CHIFFRE DES UNITES 

33 FOR K-B TO SJPRINT 3( 12G*i,*K) . CHR«< 131 
I'.: IF K-0 THEN FOR T-l TO 3B0INEXT T 

£2 FOR T- 1 TO 388 i NEXT T: PRINT 3 C128- 

K 1 0OTO69 : 

63 NEXT K 

E7 G0T033 

E9 PRINT3105. "CHIFFRE DES RETENUES" 

70 FORR-0TO1: PRINTS! 12B+A-R), CHfl»(l!l> 

B0 IFR-BTHENF0RT-1TO5B8JNEXTT 

90 FORT>lTO5B0:NEXTT:PRINTafl28*A*R)." -1. 

180 NEKTR 



IFIW1EY»<)--THENPRIMT3G56.HiG0TD5JB 



1 = 1 '---■■ ■ 



. ELSE V-V*2: 



1 D0T07B 

) PRINT31B5. "CHIFFRE DES DIIHINES- 
) FORU-OTD^ 'PRINTS' 128*&-U>. CHR»< 131 ) 
! IFW=0THENFORT»lTD5BatNEXTT 
) FORT-lTO500:NEXTT:PRINTa<12B*ii*U>. " 
> NEXTW 
' GOT 0500 
! IFE) ^lBTHENIBBS 

J IF E»K OND F=U THEN 5A5 ELSE 550 
5 PRINT 3B33, "BRfiVO 
i FOR T-I TO 230INEXT T 
' GOTO AE 

! PRINT3835. -VERIFIER VOTRE RESULTftT" 
I Z"Z*1 

I IFZUTHENF.8B 
I GOTD5B 

I IF E-K THEN PHINT3771 . -PflS D" ERREUR DONS LB COLONNE DES UNITES" 
! IF F-U THEN PRINT3771 . "PflS D'ERREUR DONS Lfl COLONNE DES DIZOINES" 
! IF EOK THEN PRINT3835. "L' ERREUR SE TROUVE DONS Lfl COLONNE DES UNITES." 
1 IF FOW THEN PRINT 3899. "L - ERREUR SE TROUVE DONS U> DXCNNE DES DIZfllNES" 
I PRINT3963. "LE BOM RESULTAT EST : •' !F IE 
1 FORT=1TO1000:NEXTT:GOTDAE 
« E«=STR»CE> 
**=RIGHT»(E«. 1) 
!0 X=VflL(X») 

;a V=I 

.5 F=0*C*V 

i0 IFX-KRNDU=FTH£NPRINT3771 . "BROVO-ELSOBSS 
il IF Z-l THEN V=V*1 ELSE V-V-2 
>2 FORT=1TD250:N£XT 
>£> GOTOAE 

i5 PRINT3B35. "VERIFIER VOTRE RESULTAT" :FDRT-1TD25B J NEXT 
iE Z-Z+t 
i7 IFZ>1THEN3K0ELSE30 

IB IFROY THENPRINT3771. "ERREUR DE RETENUE" 

'0 IF KOX THEN PRINT3835. "L* ERREUR SE TROUVE DONS Lfl COLONNE DES UNITES- 
IB IF WOF THEN PRINTa899. 'L' ERREUR SE TROUVE DONS Lfl COLONNE DES DIZOINES 1 
IB PRINT39B3. "LE BON RESULTAT EST !"FtX 




TBS 80 







3110 


FOR T-l TO 580-NEX' 






3150 


GOTO 46 






4000 


END 






7B08 


0-RND(4) 




9" 


7BIB 


B-RND(S) 






7B20 


C-RNDI4) 






7 038 


D-RNDC9) 






70A0 


E-B+D 


•A»K>." ' 


•iIF INKEV«0""THEN PRINT 3659. 


7030 


F-fl*C 






7060 


PRINT3A00.O:34B3.B 






7B70 


PRINT352E,"*- 






7080 


PRINT3528.CJ3531.D 






7090 


FDR I »26 T042 






7100 


SETU.27) 






711B 


NEXT I 


IFINKEYt 


I> ""THENPRINTajJE. R) JG0TOA9B 


7120 


PRINTa&3A, '-*! 






7130 


RETURN 



11080 REH»«CINOLYSE DU RESULTOT FINAL 

11003 CLS 

11010 PRINT CHR»<23; 

11812 IF V<-3 THEN I 

11014 IF V(-10 OND ' 

11816 IF V{-I3 OND ' 

11017 IF V(-19 AND ' 

11018 IF V-20 THEN 



VOTRE NOTE FIMALE EST"! 
IINT"C'EST wy." 
5 THEN PRINT-PAS FORrtlDABLE" 
IB THEN PRINT"ASSEZ BIEN" 
15 THEN PRINT-C'EST BIEN" 
II NT" EXCELLENT - 
11020 PRINTiPRINT-VOULEZ-VOUS RECOMMENCE R ? " 
11B3B PRINT"0 POUR OUI* 
11840 PRINT-N POUR NON"IHNPUT H* 
11B50 IF H»--0" THEN 3 

11B6B IF H«-"N" THEN PRINT"0O REVOIR" 
11878 IF H«O*0* AND H*0"N* THEN 11038 



TELECRAN 



Ce programme vavouspermettre nonseulementde reali- 
ser de jolis petits dessins mais en plus (et pour le meme 
prix, bravo Hebdogiciel !} de generer des figures dessi- 
nees sur plus d'un caractere graphique et concu grace au 
telecran. 

Dominique BOYER 



ll dispose de deux modes : 

1. Un mode tout sim pl e de te!4cran avec les fonctions suivantes : 

- huit touches de deplacement 

- quatre touches de changemenl d'epaisseur du trait (crayon ou 
gomme) 

- trois autres touches qui permettenl - d'effacer (gomme) d'ecrire 
(crayonj ou simplement de passer (Ifeve-crayon). 

2. En mode g enera teur de caracteres . 

Ce mode permet. a partir d'un dessin cre6 avec le telecran. de redelinir 
le nombre de caracteres nfecessaires a aa reconstilulion (et ceci en 
grandeur nature) 

Par exemple un personnage pourra s'ecrire ABC DEf GHI ies neuf pre- 
mieres lettres etant redefinies. 



OWC1 



-■■ 

JEU 

?5 sen 

S3 PR!Nr :PRJNT, , , .■■TELECflnN" 
55 PRlNr-.PSJNTiPBJNT" Pour i 



<*8 PR I 'IT 




133 PRINT" I. SHIFT 4 

103 REM 

Ift'J Rtn CHOJX PKOPUSE... 

10* R£n 



165 CLS:PRINT:PRINT:PRINT;P! 


ilNT, l ,,' i Uoui 


353 


918 IFN-»88 THEN 1888 


pouvez ohoii \r " 




351 FOR T-l TO C2 :PL0T2, 5-T, 9 :F0RT-| TO 


915 IF N-I82 THEN TEXT:&OIO 163 


l?0 PRINT :PRINT"F ...Pour 


FINIR" 


CI :PL0T3rT,5*T,flLTtQ:Q-O*l I 


920 IF N-»91 THEN TEXT :GOT0 78 


175 PRINT:PSINT"C ...cr.ol 


. ion d* ciTic 


NEXtT, T 


940 GOTO 518 


t«r«.":PRINT 




352 O»0:GOTO 355 


Hbd REfl 


180 PRINT " ou T Util Hot 


on du TELECR 


353 FOR T-l TO C2:F0R T-l TO CI JPL0t3*T, 


955 Rtn 


UN " 




5*T,CAR*Q;Q=Q'l :NEXTT.T:0-8 


908 REM FIN DU TELECRPN 


185 GET U*:]F U#-'T* THEN G0SUB 




985 REn 


190 [F U*="F" THEN CLS=PRIN1 


':P8INT:PRINT 


355 PL0T12,28,-L , 0RDINftTEl)R":PL0I2,22."T 


9?8 REM 


:PSINT:PRINT,, ."nERCI 8IEN" 




RfiNSFCRME LES CftRfiC TERES CM 


1808 RETURN 


(ENO 




OISIS" 


:.v,v -; ■ 


195 IF W*«"C* THEN 280 ELSE 


18S 


363 FOR T-8 T0C2-|:F0R N'8 TO C1-]:F0R J 


18884 REn 


19? REfl 




«8 TO 7! FOR I -a TO 5 


J 0005 REfl PROtlRnnnE TOURNE-PrtGt 


199 REn 




370 IF P0!NT( 8e»!<-N*0, 88-J'Tiei »-l 


10888 REfl 


288 CLSiPRlNTiPRINTiPRINT,,: 


"Uout illii 


THEN 0-Q.2-(5-I) 


I860? REH 


treer" 




3B0 NEXT I :POKEflO'J,a:0-8 


10818 PLOT 1.26, 1 :PL0T2.28.l2:PLOT3,2fl,"T 


Z85 PRINT "d«l ttrtcttrti . 


i Pari It d'un 


390 NEXT J ;A0-fM5'B 


"PER SUR UNE TOUCME POUR CO 


doSBin" 




488 NEXT N.r 


NTIHUER" 


218 PRINT :PRIHT"Uoul«J[ voui 


red«linlr 1* 


48S IF R-78 THEN 0S*CnR*(Ct*C2) ELSE flS- 


10020 GET R« 


! [iniltrii " 




ftLT*CCl»C2) 


18188 RETURN 


215 PRINT" fiarmaux Uaflz U. 


I ":PRlNTiPRI 


418 PRINT" UOUS P.UEZ OEFINl JUSOU'fl " :PR 


10118 REM 


NT;PRJNT:eHINT"ou alt«rn«* 




INfL'flORESSE i *i«0i" : 


10120 REfl 


riopei flj" 




' :CHR»(PS) 


19997 REn 


212 GET R*:R~ASCCRt} 




428 GOSue 18888 


1999B REn ANIMATION 


228 [F ft»»"ft" THEN 2t0 




430 GET R* 


19999 REM 


222 IF R«t)"N" THEN 21? 




450 GOTO 165 


20088 INK8 :pflPER0 iPRINTCHRII 201 ;CHR«( 1 ?) 



- ^INTiPRINTiPRINT'l 
pi let eoroct*r*s dojli' 'PR] 
MT* I'ordr* ftSCI I " 
22? PRINT :PRJNT:PRINT :PRIfiT 
238 PRINT 'PRINT "o parlir 4- 
erf :GErR«:CARr.ASC(R»):O0 = 1 



245 PRINI:PR1NT:PRINT" 





- i .■■■ roSCCR*] 




247 ffl]=47IB4-m_T»8 




258 PRINT JPRlNTiPRINT-Uoui aSMm 





lor, SPRINT" a I'adr,., 




# !■ IrtD 


9 


.- ■ 


SiPRlNT'WIHTiPRINTiPRlNI 




298 PRINTiPRINT" Ouillt a Mltd 




/ VOUI .lonn.r" :PRINT" a ut> 



793 PRINT :PRINT:PRJNT 

388 PL0T19,I4,1 :PL0T19, 13, I 

■J85 PRInriPRINTiCRINT-5. «out eH.HK.u 
U n bios d* 2 oar 2" 

118 ■ |N1 Usui uiru ' ;PLOT2fl,l4, ' 

IB" IPLOF20, [5. "CO" 

RIMTlPR]KTiPftINT"Sl ■JOu.Ccorw 
moil * (fiGOSUfl L8880 

. RfMTiPfllNTiPRIN! 
330 MINT >Pft!NTiPftJNT"Cambi*n d* nrsr-i 
r*i i'o- iianl«l«««nt UNPtn 
'■ I 
I2S print i|NPur"co«b itn ■■■ «r*ei«f«« v. 

rtTtaUntnl |M 

-■ ■ »9,?9,l 

■ i }i9*lil ■ '-".. ■ ■■ ■ . ■'. i ;0Rr«wfl 

, ■•» I, HI -".. ; (8-l.fl, I 

340 Hi--"! '■>■/ Bl : lfl 08t««l •'■• 

-■•■■■ Ml rS] ,Slil 
141 PR1N1 rfVI II BUJ POUd i Inir ■■ 

J4? PRINT TWI R SUR 'ft' POUR Rl ;, i NIR 
AU MENU' IK-1 1G0SU83I8 

FeXTlPRJNI "R1NT:PR|N1 :ir R-?8 THEN 

12 



TELECRAN 



4B0 REM 
4B5 REH 

478 REM ... FIN DE CREAT 
4?5 REn 
488 REM 

500 REM 

501 REM P 
50? Rr.M 
583 REn 

504 MIRES 

505 UI--8:MI-0:U2"!3?:M?-23? 

506 X-120:r-l00rK-| 

50? PRINT"TAPER SUR 'M' POUR REUEMIR il I 
MENU' 

RIN1 ■ . ■■ ■ ' ■ ■ ■ ■ ■ ■ ft Rl 

Gl ! 

.■ . 
5?0 jf M-ifli rm ■■ I 

■ ■. N r-T-1 
IB I - ■.■■■ 

^50 IF N-»9C THEN 
560 [F N IM THEN .- M MT-Yt] 
520 IF ;. I ■ ■ ■ ■ -< -T-l 

•im IF N-H83 THEN 

N IA8 '•" 'I ' .'■ 1 : ' ' I 

'■■■ ■■ PINO ■ ■ ' : 
010 IFX<MI THEN PINO ' ' ' 
029 IfX>M2 [HEN PIH ■ ■ 
■■■■■. ■ ■■ ■..'■■ 
99 [I p| | -■ 1299 ■ i",- -mi n - : 

■ : ■ • 1299) I I H r ' 

■ ■ 1799 IP I K 9 

.' 19 | FN IBS THEN PI 1 

it n * ■: thi •> n t 

'49 :i ■. IBS HI N M 3 

■■v. ii -i ISA rw n n : 

'.■;,•■■ 
. : INI KTI 
973 Iff. ;■"■■ ■ " ■ fITO mi URSI TK|1 

■T, i INI XTl 
890 If-. .-■■■ 

kiTiii cuR»i rx»i »r,aiN 

EXl 

B85 IF K") ANDPOJNTfX,t)-B rNBNCUWI I-. I 

, : -u'-l ■■ lfl .>■ is.:.; 

ifk flBHor* itmenpoai nro-rticuRsrrx.i 

•T, I : i UR i ■ • .1 • i , 1 INT 



28091 GOSU83B808:CLS 

200B? FORT-I TO 6:PL0T33,1fl»l, I9.-NCXT 

28805 FOR N- 1 TO MiPUnViMii: 

LfiY0, I , 1 , 39 :PLOT2*N, 16, 9 :PL 

0T2»N, IS, 9 

20818 PLOT?t( ItNJ. 15. ' Afl" 

28811 IF N»INT(N/2)t2 IHEMr'L[lT2«t I -N J, lfl 

."CO" ELSE PL0T2t(W).!0,' 

EF" 

108 J 3 UAITSU * 

28813 PlOT2*C1*N), Jfl," " :f'LUl 1 -2»H, 13, L 

:PLOTI*?»N, 10, I IPLOTZtf |tNJ 

. IS, 

20913 HEXTiPING 

2B016 fop I i TO ?i90UWM,2fl 1 l ■'. 

. 288 :PLOT33, 1 3, "flG- :PLOT33, 

:'.., HI 

19917 Un) T30 :PL0T33i 13. "M" iNCXT HfV 

290; ■ | ' . in 9: IN) | 

ri no ,n n ■■■. 
. 99 tg I ■ ■■ 13 1 i ■ ■ ' I 
20840 piomt-ti, u-T,Ai m ■ n ■....■' 

T, )0 : PI OIIH-N. 13 

30830 NEXT 'PLOT lll'N. 1 I, Ml mi l 

... n 

20092 I OR ■ 

R ; ii ro ■■:-■ I •Jell K>1STHEM k-k 

-15 

2890? PL0I9» 2U.13. K lflUSICI> liK«J l"J4 

• li I0INEXTI. ' 

.'.'.' ■ |N0> HAIT700 

/H.'I.U! I k |N|I 11*41 ..■ ■- t ■ 

9 R| rURN 
19009 Rl . S i i ■ 

19 
199 .■ ■ . 

■■:■■! 1,3,3,1,1 ..'. 1,3,40.30,49. I2i I 
1,90,80,94. 1.3.1,1, (,'-'. 13, 
32 

I, 1,3,1,1, 



L-'i "I. '.'..'IH. I ', ".'. •■■ 

.1.1, 1,1,7,40.40,32, 12, '.'. ' 

2,32,30,90 

101 10 .■■■■< T.l ,■ ,E,I -R.AiN 



DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIELdu MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



s de plus! 
Rien de bien original dans cette 
■'.■■■ '■■ i : i ■■-. pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres ! 
Etavecdes prix dignesdes pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pout 
leurs programmes preferes sur 
la grille recapitulative men- 
swell e. 

Pas de Jury, pas de decision ar- 
bitrage. HEBDOGIC1EL n'inter- 
venant que dans le cftoix des 
programmes qui devront etre 
ORIGINAUXetFRANCAIS.Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dtra comment 
I'ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer. il vous suf fit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que tou tesles ex- 
plications necessaires a I'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chancel 

Reglement 

ART. 1 . HEBDOGICIEL organise 
de facon mensuelle et trimes- 
trielle un concours dote de prix 
recompensanl le meilleur logi- 
ciel du mois et du trimestre. 
ART. 2 : Ce concours est ouvert a 
tout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye graiuitement sur de- 



mande par la redaclion de notre 
journal constitue I'acte de can- 
didature. 

ART. 3 La redaction d'HEBOO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de 1'originalite les logi- 
ciels qui sont publies dans le 
journal 

ART. 4 ; Ce sont les lecteurs qui. 
par leur vote, determinent les 
meilleurs logiciels mensuel et 
trimestriel. 

ART. 5. Le prix alloue pour le 
concours mensuel sera remisau 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART. 7: Le present reglement a 
ete depose chez Maitre Jauna- 
tre. 1 , rue des Halles 75001 Paris. 
ART. 8 ; HEBDOGICIEL se reser- 



ve le droit d'interrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant. 

ART. 9: La participation au con- 
cours entraine I'acceptation par 
les concurrents du present re- 
glement. 

HEBDOGICIEL: 27. rue du Gal 
FOY - 75008 PARIS 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ofdinateu r. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depouillement du vote. 



BON DE PARTICIPATION 



Norn: 

Prenom 

Age 

Adresse : 

n" telephone . 

Nom du programme : 

Nom du materiel utilise : 

declare etre I'auteur de ce programme qui n'est ni une imitation m 
une copie dun programme existant Ce programme reste ma pro- 
pr.ete et j'autor.se HEBDOGICIEL a le pubher La remuneration pour 
les pages publiees seront de 1 000 francs par page (un programme 
n'occupant pas une page entiere sera remunere au prorata de la sur- 
face occupee). 
Signature obligatotre : 
(signature des parents pour les mmeurs). 

Le programme doit etre expedie sur support magnetique (cassette 
ou disquette) accompagne d'un Oescnplif Detaille du Materiel uti- 
lise, d'une Notice d'Utilisation du Programme, et d'un emballage 
timbre permettant la reexpedition du materiel non publie. 



RECOMMANDATVONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Indiquez sur le support 
magnetique !ui-meme votre 
nom. le nom du programme et le 
materiel auquel il est destine. 
Rien n'est plus difficile que d'es- 
sayer de charger un programme 
d'Applesur PC 1500. 

• Notez dans les premieres 
lignesde votre programme. sous 
forme de REM. votre nom, le nom 
du programme et le materiel 
auque! il est destine. Nous pour- 



rons ainsi reperer facilement les 
listings, une foissortisde i'impri- 
mante. 

• Dupliquez plusieurs fois sur la 
meme cassette et a des niveaux 
d'enregistrement differents 
votre programme. Nous aurons 
plus de chances d'arriver a le 
charger si les magnetophones 
ne sont pas tout a fait compati- 
bles. 

• Envoyez un seul programme 
par support magnetique et un 
seul mode d'emploi par pro- 
gramme. Votre lettre d'accom- 



pagnement et vos autres cour- 
iers doivent egalement etre 
separes car traites par d'autres 
services. 

• Joignez. si possible, un listing 
du programme et un organi- 
gramme. 

* Entin.lefindufin.expliquezles 
particularites de votre ordina- 
teur et le moyen d'adapter votre 
programme a d'autres ordina- 
teurs. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



LOGI'STICK OFFRE UNE GAM- 
ME COMPLETE DE SES CAS- 
SETTES DE JEUX POUR LE 
MEILLEUR LOGICIEL DU MOIS 
FX 702 P ET POUR LE MEILLEUR 
LOGICIEL PC 1500. 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SALOGITHEQUE. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP 41. leur livre "autour de labou- 
cle" de Janick TAILLANDIER. 



Le Club PPC-T offre au meilleur 
logiciel en langage FORTH sur 
HEWLETT- PACKARD une adhe- 
sion gratuite a son club. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE, INTERFA- 
CEERS.232.C. 



REUSSITE 



Ce programme inspire d'une Reussite pour un jeu de 
32 cartes est un poker (represents ici par 0) est relative- 
ment simple. 

Les regies du jeu se trouvent dans le programme sous for- 
me de pages d'explications. Le programme demarre au- 
tomatiquement etvous demande si vous voulez les regies 
du jeu. Puis il vous demande votre nom et se met en mode 
"FAST' pour effectuer I'affichage du jeu. 

Philippe PERDAN 




Z*81 



1 160 PRINT OT X, Y ; "f>" ; 

1170 NEXT Y 

uaa next x 

1190 FOR X = 8 TO Id 5TEP 2 

1|0| PRINT rt x,6; •* Biff If 



*n . 4.; fi* (p.) 



1770 PRINT RT 

1750 NEXT R 

]798 PRINT RT 31,8; "TflPCI 



PRINT RT 



•1,6, 



iB PRINT RT . 11 . _ 
50 PRINT RT 10,0. "UOULEZ-UOU! 
1.ES REGLES DU JEU T" 
50 INPUT RS 
70 IF R»(D="0" THEN G05UB 153 



L IGNE JOUEZ -UOU5 7" 
550 INPUT 8 
5 50 PRINT RT 11,25; 
570 PRINT RT 21,0," " 

5S0 PRINT RT 28,0;" 



1230 REM 

1.2.10 LET F=B 

12S0 LET 6:1 

1250 LET D=0 

1270 GOSUB 1380 

1260 LET B=2 

1230 LET D=8 

1300 GOSUB 1380 

13 10 LET B = 3 

1330 LET O^IB 

1330 GOSUB 13B0 

1310 LET 6=4 

1350 LET Dz24 

1360 GOSUB 1380 

1370 GOTO 1480 

13S0 LET Y=7 

1390 GOSUB 21B0 

1400 FOR 1=1 TO 

14.10 IF P (B . I) =0 

"'; E (I+D) 



REPOHSE 



THEN PRINT RT X 



•COMMENT UOU5 



50 CLS 

90 PRINT RT 21 
CiPPELEZ-UOU5 ■?" 

100 INPUT N* 

110 CLS 

120 FRST 

130 LET R=0 

140 DIM P. (33) 

150 LET B=I 

150 LET C = 6 

170 FOR I=B TO C 

IBB LET R ( II =1 

190 NEXT I 

100 LET B = 9 

510 LET C=16 

220 FOR 1 = 6 TO C 

230 LET R ( I) =1-8 

340 NEXT I 

250 LET Bsl7 

250 LET C = 24 

270 FOR IsB TO C 

380 LET R IX) =1-16 

290 NEXT I 

300 LET 8 = 25 

3 10 LET C*=32 
320 FOR 1=8 TO C 
330 LET R(I) =1-24 
340 NEXT I 

350 LET R (33) =0 

350 DIM E (33) 

370 DIM F (33) 

380 LET B = 

390 FOR 1=1 TO 33 

400 LET FIDtB 

4 10 NEXT I 

420 FOR 1=1 TO 33 

430 LET X = INT (RND(33> H 

440 LET EIDsR (X) 

450 IF F (X) >0 THEN GOTO 0430 

4 80 LET F (X) =B*1 

470 NEXT I 

480 GOSU8 1020 

490 SLOU 

500 GOSU8 0980 

"510 DIM P (4 , B) 

520 LET B=0 

530 LET C=l 

340 FOR 1=1 TO 8 

550 LET P(C,I! = B 

560 NEXT I 

570 LET CsCH 

580 IF C>4 THEN GOTO 0600 

S90 GOTO 0540 

500 PRINT RT 11 .25, E (33) 

510 IF E (33>i=0 THEN GOTO 0830 

520 GOTO 2230 

630 PRINT RT 20, 131-LCM N») ^2; i 



B<1 OR B>4 THEN 



GOTO 06( 



840 PRINT RT 21, E 



DRN5 QUELLE 



700 LET Y=E (33) *E (33) *1 

710 GOSUB 2180 

720 PRINT RT X,Y+AiCHR* (E (33) * 
155) 

730 IF P(B,EI33)I=1 THEN GOTO 
300 

740 LET P(B,E(33))=1 

750 LET R=R+1 

780 IF B=l THEN LET E(33)=E(E(3 

770 IF EJ=2 THEN LET E C 33 ) =iE (8 tE 

760 IF B=3 THEN LET E(33)=E(16 + 

E '.33) I 

790 IF B=4 THEN LET E(33)=E<24 + 

E (331 ) 

500 PRINT RT 11, 25, E (33) 

810 GOTO 0510 

820 IF R)=31 THEN GOTO 2330 

830 PRINT RT 21,5: "OCSOLE, C ES 

T LE ZERO." 

840 FOR 1=1 TO 30 

350 PRINT RT 11,25, "0" 

550 PRINT RT 11,25, "H" 

570 NEXT I 

880 PRINT RT 21,0; " VE 

PIFICRTION 

B90 GOSUB 1230 

900 PRINT RT 21,2. "UOUS NE POU'.' 
EZ PRS JOUER ICI." 

910 PRINT RT 11, 25, EOS) 

920 FOR 1=1 TO 30 

130 NEXT I 

940 PRINT RT 21,0; " 

950 GOTO 0610 

960 FOR Y=24 TO 26 

970 FOR X=10 TO 12 

980 PRINT RT X,Y; "] 

990 NEXT X 

1.000 NEXT Y 

1010 RETURN 

1O20 REM nFFICHRGE Gft 

1030 PRINT RT 0.11 -' 

1040 LET Y»* 

1O50 FOR 2=1 TO 6 

1.060 PRINT RT 5,Y»3;Z 

1070 LET Y=Y+2 

1080 NEXT Z 

1.O90 LET X=8 

1100 FOR Z«l TO 4 

1110 PRINT RT X,*;Z 

1120 LET X-X+2 

1130 NEXT Z 

1140 FOR X=7 TO 18 STEP S 

1150 FOR Y=6 TO 22 



1420 IF P (B . 
1430 IF 
RT X , Y ; 



10 THEN LET F-F-t-1 
:E(I*D) THEN PRINT 
; (I*D) +-156) 
_ *E (.I+D) RND P (B, T) 

=0 THEN LET F=F+1 

1450 LET Y=Y+2 

1480 NEXT I 

1470 RETURN 

1480 PRINT RT 19,0, " UOTRE REU55 

ITE E5T DE: ";F:" .- 32" 

1490 PRINT RT 21,0; "TENTCZ-UOUS 

UN RUTRE ESSRI 7 O/N" 

1S00 INPUT R* 

1510 CL5 

1520 IF R* ( 1) < >"0" THEN GOTO 157 



1530 PRINT RT IS . S ; "EST -CE LE ME 

tie UOUEUR 7" 

1540 INPUT R% 

1350 IF R»(1I="0" THEN GOTO 0110 

1560 GOTO 0080 

1570 PRINT RT 10,7. "RU REUOIR ET 
MERCI . " 

1575 STOP 

15B0 CLS 

1590 PRINT RT . 10 ; "REGLE DU JEU 



) G10 IF INKEY J="" THEN GOTO 1790 
1320 PRINT RT 2,0. "L ORDINRTEUR 
PLACE RLERTOIREMENT DRN5 LES 32 
■.OSES DES URLEUR5 COMPRISES 
ENTRE 1 ET B . PLU 

3 UN ZERO '■ 
1330 PRINT RT 6, 0; " 

1840 PRINT RT 21 .8; "TRPEZ UNE TO 

UCHB" 

1S50_ PRINT RT 21,8.;" 

1350 IF INKEY*="" THEN GOTO 1Q4G 

1B70 PRINT «T 2,0," UOU5 DEUCZ 
PLRCER LP URLEUR INDIOUEE PR 

R LE PET IT CRRRE DRN5 UNE D 
F3 OUPTRE CR5ES CORRESPONDRNT 

E&. SI C EST LE ON PRSSE R 
LR UERIFICRTION. " 

1680 PRINT RT 21 , 12. "EXEMPLE" 

1390 PRINT RT 14,36; "4" 

1 900 FOR R=l TO 80 

1910 NEXT R 

1920 LET B=l 

1930 LET C=2 

1940 PRINT RT 21.0: "UOUS POUUEZ 
JOUER R LR LIGNE: '' ; B 

1950 PRINT RT 14,26, "4" 

1960 FOR 1=1 TO 10 

1970 PRINT RT 8, 13: "A" 

I960 PRINT RT 8 . 13 ; "B" 

1990 NEXT I 

2000 FOR R=23 TO 13 3TEP -1 

2010 PRINT RT 9+C.R. "B " 

2020 PRINT RT 9tC,14,"fl ■■■■'' 

2030 NEXT R 

2040 FOR 1*1 TO 40 

r;0S0 NEXT 7 

3060 PRINT RT 9tC, 13, " " 

3.070 PRINT RT 14 , 26 : l ' " 

20B0 LET 8=B+1 

r.-'GQO LET CeC+2 

2100 IF 6>4 THEN GOTO 2120 

2110 GOTO 1940 

a 120 PRINT RT 21,0; " TRPEZ UNE 

TOUCHE POUR JOUER 



1600 PRI^rr RT 2,4, 
r TE 32 CRSE3" 
" 16 10 PRINT RT 4,2, 

T NUMEROTEES OE" 

1620 PRINT RT 5 .5, 
.' NTRLEMENT" 

1630 PRINT RT 6,5 , 

r.BLEMENT" 

1540 DIM Rf I 11 .241 

1650 LET R* ( 1) a" 
8 " 

1660 LET R*(2)=" 

WO LET R*(31 

1680 LET n*Ui 

1690 LET R»(5) 

17G0 LET R« (6) 



"LE JEU COHPOR ' 
"CE5 CR3ES SON 
'• 1 R &■ HORIZO 
"1 R 4. UERT1 

12 3 4 5 8 





THEN 


GOTO 
















2 m 


5RUE "REU3SITH" 










GOTO 00 10 










■ 1 !-,C) 


IF B=l THEN 


LET 




B 




:j19 


IF B-2 THEN 


LET 


x=ie 




2200 


IF B=3 THEN 


Ltl 


X = 12 




.-.';-' id 


IF B-4 THEN 


LEI 


X 


14 




2220 


RETURN 










aa >■ 


IF P ( 1 .E (33 


) *P 


a 


E (33) 


) »P ( 




i 


j> a 


> ■ ■ 


a 


ii 


a 


m m 


» • a 


a 


a 


3 





















3 .E (331 ) *P <4,E (33) 1 =3 THEN GOTO 

a&M 

2340 GOTO 0630 

S88C FOR 1=1 TO 4 

3260 IF PII.E(33)|s0 THEN LET B ■ 

I 

;:?70 NEXT I 

33BB FOR 1=1 TO 15 

2290 PRINT RT 21.*;"UOUS N flVEZ 

:>i.ur, i_r cmoi:<" 

r>300 NEXT I 

S310 PRINT RT 21,4;" 

[■ GOTO 0700 

^330 PRINT RT 20 . . " UOU3 RUEZ C 
U UNE SRCREE CtinNi.r ■ 

..340 FOR lol TO 60 

TJ3 50 NEXT I 

B3Sa PRINT RT P0.0. " 

."1370 IP R-32 THEN GOTO 239* 

.F.li r.DM l); nii'ill 

•,90 GOTO 1490 _ 



TOUR DE HANOI" 



Une I6gende orientale dit que Dieu est en train de jouer 
avec les tours de Hanoi de 64 disques. Quandil aura termi- 
ne, ce sera la fin du monde ! Rassurez-vous, il lui faudra 
355 milliards desiecles pour finir son jeu ! Cela vous laisse 
a peine le temps de vous debattre avec vos 19 disques. 

Jean-Francois DURIX 

Moded'emploi ; 

11 faut&l'aide des touches Fl.F3.F5, faire bouger les disques surlestrois 
piquets en sachantqu'il est impossible demettreundisquesufun autre 
disque plus petit que iui. Si par exemple vous tentez de mettre un dis- 
que sur un autre disque plus petit, X07 doit normalement emettre un 
son stndent ; de meme si vous appuyez sur les autres touches a part les 
touches 1. 3, 5 qui jouent le meme r6le que Ft, F3, F5. 



1 REH«PftESENTATION.. 

3 V-0 

lO CLS 

20 LOC*TE7,OiPft]NT-TOURS- 

30 LOCATE B. 1:PRINT-D£" 

«0 LOCATE 7,2:PRlNT"HraNOI" 

30 FDRI-ITO50O:NEXTI 

10O CLS 

110 INPUT"Co*t>i»n d'tnneau: 

120 IFN<3ORN>19GOT01l0 

125 CLS 

> FORI-I , >Tog3STEP3a 



CN 



1*** 



Note de la Redaction 

Cette semaine nous repassons 

Tour de Hanoi dans son inteqra- 

Nie. 







164 FOP I -1 ton 

: - ■ ■ ■ I 

IBO NEXTI 

I EY*(I>-" 

;]-.. KCv«(3i-- 
rr- KEY*t9t>" 

Z30 TIrE». -| 



75-&-20 

540 C-31-N 

3SO IFPOINT (fl.CI -JTH£M76<jELSE;7C' 

ZbO IPC' ;iTHENC=C*l:G0TD350ELSE500 

570 1-1 

38C IFPOINMA-I.C)-- irMENI-I-l 5 G0TO:e0ELSEAO0 

900 6EEF49. l0:G0TO30O 

600 D-I 

o'jz b-volu'o £y*> 

mo !?=■■■ :-■.'.:.!.■ _..'.: r : goto so 3 

620 BEEP23. 1 

630 £-38»P-ro 

640 F-31-N 

650 t FPU INT ( E . F) =0THEN66</ELSE67O 

660 IFF':31THENF«F + l5GOT065OEL5EF-r,;:G0TD710 

670 I 



-oi 



-lTHEf(I-I-!:GOT0690 



140 I 

ISO -.E ■ 



ii.; 



6SO IFP0INT1E- 

690 I-I-l 

700 IFD>ITHENBEEP49.!3:G0TO300 

710 FORI-1TOD 

720 PRESET<AM-I,CI 

730 PRESET (A-l-M.C) 

740 NEXTI 

750 L!NE<E*t-D,F-ll-<E*l-D.F-l) 

760 IFPOINT (IB. 31 I -- 1CRPOINT 136.3] ) — ITHEN300 

762 0*=TlnE» 

765 F0RI-1T0500:NE»TI:CLS 

770 PRIMT-Fartie ternine - , *«n- I Vf -coup*- , " (ainlMja 

1000 FCRWT042 

1010 READft 

1020 IFI':>22ANDI'.-r42THErjFEEPG,fiELSEtEEPA. lOlBEEPO, 

1030 NEXT 

1040 DATA25. 2f. 29, 25, 29.29, 27, 29, 27. 25, 29,32, 25, 29 

1050 OATA30.34.;4,29.32.32.27.30, 7v. 25. 29. 29. 23, 29 

1100 CLS 

I20O END 



UTILITAIRES 



Ces petits programmes utilitaires vous rendront de 
grands services et vous indiqueront. si vous les analysez, 
divers 'trues' et secrets du canon. 

Bernard DUPIN 

Mode d'emploi ; 

A) DIR : 

L'instruction DIR presente quelques inconvenients : 

- mauvaise iisibilite 

- defilement rapide difficile a contr&ler (par contr6le S) 

- aucune indication sur la longueur des tichiers ou programmes. 

Le programme DIR remedie a ces petits defauts par un affichage ligne 

par ligne. commande parpression sur la barre d'espace, un seul fichier 

par ligne et affichage de la longueur (en octets) du fichier. 

Pour lister le catalogue sur I'imprimante. il suffit de remplacer les print 

par des Iprint et de supprimer I'attente. 

Enfin, il est interessant de programmer une touche fonction. 

Par exemple : 

KEYS(1)--dirRUN-+CHRS(34)+"DIR"+CHRS(13) 

Le programme etant stocke en zone RAM pour fichier. 




B) DATEUR : 

Dateur permet de connaitre la date et i'heure de la demiere utilisation 
de votre canon. Amusant, non ? Et cela peut devenir tres utile dans le 
cas d'utiiisation de cartes amovibles (date et heure de la derniere utili- 
sation de la carte). 

C) NUMERO : 

il est desagreable de devoir retaper la totalite d'une ligne basic pour en 
changer le numero (ou de faire plusieurs manipulations hasardeuses 
avec I'editeur). 

Numero permet de changer le numero d'une ligne d'un programme en 
zone texte. Prudence tout de meme ! 

D) DATE : 

Ce programme tres court permet d'imprimer la date en bon francais 

ainsi que I'heure en continu. 

II doit etre interrompu par la touche 'BREAK' (pas END). 



5 REM "DIR" CANON XB7 - 

10 D-PEEKr5SB)*25B-PEEK(523):ST=I>:J'>l 

28 IFPEEKrST>=BTHEN7B 

3B N*="":F0RI=1T0£!N*-N»+CHR»<PEEK<5T*I- 

LQ PRINTJ;Tfl8<4> ,N»!" " i CHR»(PEEK(ST*S> ) 



58 L"PEEKIST*7)»256-PEEX(ST.B>:PRINTL 
6B IFINKEY»---THEN60ELSEST=ST.L:J-J*l:DOTO2B 
7B F=PEEK1530)*25S*PEEK(531):PRINT-FSET ■ " 1F-D*13, " 
F-5T 

EB END 



5 REM CONON X87 - "DATEUR" - 

IB A*25G«P£EK(529>*PEEK(528> 

2B F0RI = 1T04U»(I>-RIGHT»(STB»(PEEK<A-5»I> 

3B F0RI-3T0fliIFLEFT*lJ»(I>. 1)-" "THENJ»( I >' 



aa clS:print- 

5B PRINT" LE 
SB END 



CE XB7 A ETE ETEINT" 



5 REM CANON X07 - "NUriERO" - 

IB INPUT"LIDNE"iNI 

2a INPUT"NOUVEAU NUHER0"SN2 

3B A- 1363 

<|0 P-PEEK{0).23E*PE£K(A*1) 

5B N-PEEK<fl*2)*236*Plt£K(fi*3> 

EB IFP-BTHENPRINT"N'EXISTE PAS": 

7ffl IFNON1TKENA-PIG0T04B 

88 Xl»N2'*23GiX2"N2-Xl*25E 

98 P0KEA*3.XliP0KER*2.X2:END 






• rj»iC»-MID«<0*. 18. 31 



5 REM CANON X07 - "DATE" - 

10 CLSJA«-DATE»1B»---19"*LEFT»(A»,2) 

20 B*-hlD»<A«.4.2J*B«iB»-P1ID»(A«.7.2)' 

30 N-(IN5TR("M0NTUEUEDTHUFRISATSUN".C1 

40 FOR!-lT0NiREADC*!NEXTt:PRINTC*iLOCATEia.atPRINTB4 

50 L0CATEE.2!PRINTTlME»i00IO3B 

6B DOTALUNDI . WARD I . MERCREDI . JEUDI . VENDREDI , 50MEIH . DIHniMCHE 



CALTAB 



PC 1500 



Ce programme utilitaire permet d'effectuerdescalculs en 
ligne sur un tableau. Pour resumer, ce programme est une 
micro feuilledecalcul. Le PC 1500 dans sa version debase 
est suffisant mais il va sans dire que I'adjonction de modu- 
les augmenterait la taille du tableau. 

Olivier DEPRIESTER 

Ce programme permet tous les calculs en ligne du type : 

y — f (A. B, C. D. E. F G, H, I. J) Ces variables prenant les valeurs respec- 

tivemenl de la 1" a la 10' colonne. eventuetlement. dans la ligne consi- 

deree. 

Calcul eftectue Rony par rony, le resullat etant stocke dans la colonne 

de son choix. pour Ft 

- Une deuxiemefonclicnpeutetrepreparee sur la meme base detonc- 
tionnementF2 Mais dans ce cas, le calcul n'est eftectue que lorsde la 
lecture du tableau et que ton arrive en bout de ligne Cela rajouteune 
colonne suppiemenlaire. 

- Ces fonctions se programment directement en mode calcul sans 
passer par Je mode programmation 

- Taille des tableau/ possible Rangs A colonnes (+1 avec F2) 
7x7:9x6:11x5 

13 X 4 : 17 x 3 ; 24 x 2 , 39 x 1 

Fonctlonnement 

RUN : Nous pose la question NEW TAB (0/N) 

Le sous programme K ligne 800 ne nous permet pas de repondre O 

ouN. 

Si e'est NON on reulillse ies donnees en memoire 

Si e'est OUI on dimensionne I'espace de travail par S ligne 30 

A notef que le 1" rang ou colonne sera appele r ' Rang ou colonne 

Ligne 50 on donnelenomdechaque colonne (5caracteres maximum) 

Puis de chaque ligne (Itgne 60) 
Ligne 100 Entree des donnees "EN Val" 

I'ordinateurdemandelenombrede colonnes que ton comp- 

te remplir "C. Occup." 
en 150 sous programme de Visualisation "C" 

* On utilise les touches de deplacement du curseur pour se deptacer 
dans le tableau Lafticheur indique le sens du deplacement - - 

- 1 Sous programme 
ou . de L de la ligne 400 

le nom du rang, de la colonne et ta valeur 

- Si Ion sort des limites. a droite. on provoque le calcul par F2 

- Si ton sod des limites. par le bas, on obtient dene Via somme des va- 
lours de la colonne 

Une pression sur ENTER nous ramene dans la routine 

et si par inadvedance on la quittait il suftit de faire DEF C. 

1 Touche autoprogrammalion de Ft ou F2 sous programme "A" ligne 

500 si oui ou frappe ou clavier, la fonction desiree. 

- 26 caracteres maximum, I'excedcnt sera ignore. 

La ligne 550 calcule ladresse Y du debut du stockage initialise par le 



Restore des lignes precedentes. 

La ligne 560 Poke les codes du tampon d'Entree Sodie a I'adresse de- 
termin6e Y 

En 570 cela termine la ligne par :Retum et le code ENTER 13, 
EN 580LeCall &4000doitetre remplacepar un Beep. Cara cetie adres- 
sej'y ai mis une petite routine modulant le Beep C'est le signal de la fin 
d'autoprogrammation et de retour en lecture. 
Pour augmenter la longueur de la fonction (on perd de I'espace varia- 
ble t) il faut augmenter la borne supeneure de la boucie X iigne 560 et 
augmenter dautant le nombre de caracteres ' (ou autres) aux lignes 
700 et 710 sans que le total pour ces lignes depasse 80 ou I'atteigne. 
- Arret demandant dans quelle colonne le resullat sera stocke (pour F1 
seulement). 
* Touche P 

Acces direct au sous-programme "D" permet de changer de place le re- 
sullat de "Ft" Cette valeur pouvant en remplacer une precedenteetuti- 
Usee meme dans le calcul 

' Touche D nous mene en "J" ligne lOOpour une nouvelleentreede don- 
nee surle meme tableau. 



ia:UfllT 0:PRINT " 
New Tab":GOSUB 
"K": IF FJ="N" 
THEN "C" 

30: CLEAR : INPUT " 
Nb.R.'tR: 
CURSOR 3: INPUT 
"Nb.C.";S:R-R- 
l:S=S-l:CLS 

40:QIM KR, S>:DIt1 
Rjr,R)*5:nit1 Si 

?F36H":B»="08 
1C3E3E1C08" 

50: PAUSE "NOH RtiC 
":FOR K^BTO S: 
PRINT KM i " C. 
": CURSOR 3: 
INPUT S*CIO: 
CLS :NEXT K 

60: FOR L=0TO R: 
PRINT L+li" R. 
": CURSOR 3: 
INPUT R*(LK 
CLS :NEXT L 



•J"PRINT "En.U 
ol .":GOSUB "kT" 
: IF F*="N"THEN 
"C" 

INPUT "C. occup 
. ": I:T = T-1 
1?0:FOR K=0TO T: 
FOR L^0TO R: 
PRINT "E. . ";R* 

id;" "iSKKj; 

: INPUT T<L,K;: 
CLS :NEXT l: 
NEXT K:K-0:l=0 

I50:"C"F»^JNKEY» : 
UIPIT 0: JF F*=" 
"THEN "C" 

I60:M=ASC F«:BEEP 
I 

170: if n=BOR n-10 

OR 11-1 IOR 11=12 

GOSUB "L" 

IF n=PSGOSUB " 

A" 

F r1^80GOSUB " 
D" 



II 



180: 



130: 



200: IF H-=68G0T0 "J 

210:GOTO "C" 

400: "l"IF N=12 

GPRJNT B*:K-K-> 
l: JF K>SG0SU8 
"CO": GOSUB "F2 
": CURSOR 3: 
WAIT :PRINT R* 
(L);"f2=";U: 
CLS : RETURN 

410: IF H=8GPR1NT B 
*;K-K-l: IF K<0 
LET K=0 

420: IF f1=llGPRJNT 
fl*!L«L-]: JF L< 
0LET L=0 

430: IF t1=10GPRJNT 
A*:L-L-*J: JF L> 
RTHEN "BC" 

450: CURSOR J.'PRJNT 
R4<LJ:CURS0R 7 
:PRJNI SJ(kT;: 
CURSOR J3: 
PRINT Ta.Kj: 
RETURN 

480: "BC"U=B:FOR L- 
BTO R:U-U->TCL, 
K;:NEXT l:l^0: 
UAJT tPRINT "S 
am. U=";U:CLS 
: RETURN 
"A"PRINI "FJ": 
GOSUB "K" 
IF F»="0"LET 2 
^0:RESTORE "FJ 
":GOTO "B" 

320:PRJNT "F2": 

GOSUB "K": IF F 
*■ "N"REIURN 

530: RESTORE "F2":2 
= J 

550:' , B"Y-(PEEK 303 
10-)28;«56-> 



500: 



1,:: 



PEEK 3031 J-<6: 
INPUT "Fonct lo 
o U =";x 

5B0.-FOR X-=31626r0 
3J701: JF PEEK 
XOJ3P0KE Y, 
PEEK x:Y^Y->J: 
NEXT X 

570:POKE Y, 58, 24), 
153, 13 

580: BEEP :JF 
2RETURN 

600: "D"JNPUT "C.sl 
ocK"iT: T=T-J 

C10:FOR L-0TO R: 
GOSUB "CO": 
GOSUB "FJ": TIL 
, TJ-U:NEXT l 

620: T=S:K^0:l^0: 
BEEP J : RETURN 

650: "CO"FOR K=8T0 
I:a<K-»l j = t<l,K 
>:NEXT K:K=e: 
RETURN 
'00: "Fl"u-M*imir* 

2J0: "F2"U--*¥ir*lryr» 

R00: 'K"F»=JNKEY» : 
CURSOR J5: 
PRINT "(0/N;": 
JF F*-""OR tF« 
<>"0"AND F*<>" 
N")THEN "K" 

810: BEEP 2: CLS : 
RETURN 

STATUS I 

J 23? 

STATUS 2 



EVEREST 



Laissez tomber la cigarette avant de vous attaquer a 

I" EVEREST sur votre PC 1211. 

Les personnes sujettes au vetlige peuvent s'abstenir. 

Pierre Yves DESCAMPS 
Mode d'emploi 
Pas de source. MEM ; 450 1 

Deux joueurs en presence, ils doivent monter une montagnede 100 
2 options, attaquer-assurer 

Les joueurs gnmpent un nombre de metres par la somme des points 
des deux des. Si I'un des des est 1. il retombe, mais pas plus bas que la 
demiere position sur laquelle il s'est assure. 

Tant qu'on attaque, on peut rejouer jusqu'a ce qti'on retombe ou jus- 
qu'a ce qu'on assure, c'est alors a I'autre joueur de jouer. 
Le vamqueur est celui qui le premier depassera 100metres et assurera 
sa position. 



ERRATUM PC 1211 

Comme onl pu le constater les 
"fans" du PC 1211. le programme 
"MANOIR DU COMTE ZORK" pu- 
blie dans HEBDOGICIEL n° IB 
elait en fait un programme pour 
PC 1251 Le programme etant 
adaptable assez facilement. les 
PC'tstes nouspardonneront cette 
malenconlteuse erreur. 



IO!"EVEREST"IG= 


so:Z*=N* 






IBIC 


0:E=0=I=0:H- 


■?0: PEEP 


: PAUSE 


130 


IF y=lG0TO 1 


0: INPUT "INI 


Z* 






90 


riM.ES JOUEU 


100: INPUT 


"aTTKO 


140 


IF H=1LET H= 


RS ?"»M»>M$ 


UERM 


ASSURE 




H+EIGOTO ISO 


20: ftp 1 


r=: ■• 


T 


130 


1 = 1+0 


30SG0SUB 500 


110:v=Itu 


U=H+E: 


liO 


if : =ioo 


40:B=X 


PAUSE 


USING 




BEEP 5SPRIHT 


5CHG0SUB WO 


"««*« 


:•• "in 




N*;" GflONE ! 


60: C=X 


*;" ■• 


u: " " 




" : END 


70: IF A=ILET ZJ 


SN*i" 


■ JV 


170 


IF H>=100 


=M»:GOT0 90 


i;u:PHUSE 


"DES: " 




BEEP 5: PRINT 



PC 121 1 

Hf:" GhONE ' 

"IEND 
1S0:o=-m:G=0:E=0 

:G0T0 30 
1?0:IF <B=1)+(C= 

DOOBEEP 2! 

fl=-fi:E=0:G=0 

:G070 30 
;00:IF ft=lLET E= 

E+B+CsGOTO 3 


210:G=G*B*C:GaT0 

30 
500:J=JI»J:X= J~5- 

INT <J~5):J= 

X 
510:X=X*7:X=INT 

X 
520: IF XOO 

RETURN 
530: GOTO 500 | 



PETITES ANNONCES 
GRATUITES 



VENTE DE MATERIEL DfVERS A 
50 % DE SA VALEUR 



AVENDREpourT199/4Asysteme 
dedisquelteset extension 32 Ket 
EDITOR ASSEMBLER (sur dis- 
quettesjetsynlheliseurdevoixet 
6 disquettes et 6 modules et tous 
les cordons. Prix 6000 F Tel. 
763.04.85 Bernard KAPPLER. 
VENDS ZX 81 excellent etat. 
achete sept. 83 (sous garantie) + 
memoire *-K + cordons + Ma- 
nuel utilisation... Le tout 700 F 
M. AUDET. Tel (56) 23.07.08. 
VENDS VIC 20 (3/83) + Super ex- 
panded Avenger + radar trace + 
livre VIC + auto formation 1500 F. 
Michel CART 17 rue St-Quenlin 
NOGENT SUR MARNE 94130. Tel. 
873.68.60. 

RECHERCHE pour Tl 99/4A mo- 
dule Tl Extended Basic. M. DELA- 
PORTE 93 rue Victor Hugo 92800 
PUTEAUX. T6I, 776.03.95 (apres 
17 h 30). 

VENDSmoniteurvert9poucesen 
Ires bon etat Prix 450 F E RA- 
GNEAU 38 bis av. Rouget de I'lsle 
76610 LE HAVRE. Tel. {35) 
47.39.04. 



VENDS pour ORIC 1 Programmes 
XENON. INVADERS (ISK) SUPER 
METEORS. HARRIER ATTACK. 
MUNCHBACK 80 F chaque. Mo- 
dulates SECAM couleur LX 50 
(du 4/7/83). Prix 300 F Laurent 
PERZO 25 rue Marcel Sembat 
78140 VELIZY Tel. 946.00.24 (en- 
tre19et20h). 

VENDS 2CablesLiaisonmagneto 
console pour Tl 99 100 F chaque. 
J.F DYBA 18 rue de Missembceuf 
02440 MONTESCOURT LIZE- 
ROLLES. Tel. (23)63.21.34. 

VENDS HHC PANSONIC. Modele 
RL H1400 (Version 4K) *f Modem 
Accoustique-t- Interface generale 
d'entree/sortie (6au maximum) + 
luxueux attache-case noir + di- 
vers logiciels (sous capsules) : MI- 
CROSOFT Basic + Telecompu- 
ting I et II -f 3 mode d'emploi. ma- 
teriel en tres bon etat (7 mois 
d'utilisation)vendu 5000 F (valeur 
neuf 12000 F) ou echange contre 
ordinateur Type CANON X 07. EP- 
SON HX 20 ou TRS 80 MODELE 
100. Tel. 287.34.53 (vers 19 h 30). 



EDITEUR DE PROGRAMMES 



* 



Suite de la page 6 



933B: 


M) 


FB 


n 


774 


933E: 


cp 


EF 
04 




275 

276 
277 


9342: 


20 


DO 


Hi 


iVB 


9343: 


4C 


04 


93 


2/P 

7B0 


9348: 


A9 


AC 




/HI 


934A- 


20 


ITJ 


V4 


282 


9340: 


At 


Yf 


93 


264 


9350: 


AD 


FC 


■■: 


7«3 


9333: 


9D 


00 


12 


286 
787 


9356: 


70 


ca 




SHH 


9359: 


20 


to 


74 


289 



935C: 4C 4 



935F: A9 i 



9365: 
9366: 
9367: 



293 TRUCOM 



297 
29B 
299 



> DC 95 302 
t 303 

I OB 95 304 



BCC REHP2 



JSR STOCKE 

LDX CURSEUR 

LDA SAVC 

STA BUFFER, X 



JMP GETCAR 
LDA £>GETCAR-1 

PHA 

LDA KGETCAR-1 
PMA 

TXA 
ASL 
TAX 

LDA TABADP*! , 

PHA 

LDA TABAOR.X 



;ET RECOMMENCE 



jTROUUE L'ADRESSE DE LA ROUTINE 



9370: 60 











311 


. 






„ 










312 


• FONTIONS DE L'EDl 












313 
314 
313 


* 






• 




















316 










9371 i 


Af) 






317 


RRESTORE 


PLA 






9372: 


Ml 






318 




PLA 






93731 


4C 


25 


92 


31? 

320 
321 
322 
323 




JMP 


RESTORE! 




























324 










9376! 


20 


24 


95 


325 


RBLANC 


JSR 


RSTCRS 




9379: 


A? 


FF 




326 




LDX 


(»FF 




93781 


htt 






327 


RBLC1 


INX 






937Ci 


FC 


FA 


9-1 


328 


RBLC3 


CPX 


FINLIN 




937F: 


FO 


28 




32? 

330 




8E0 


RBLC4 




9381 : 


RD 


no 


0? 


331 




LDA 


BUFFER.X 




7394: 


T9 


A? 




332 




CMP 


£•* 




9366. 


FO 


IS 




333 
334 




8E0 


RBLC2 




9388i 


T.9 






335 




CMP 






938Ai 


DO 


EF 




336 
337 




BNE 


R8LC1 




938C: 


RF 


F7 


93 


338 




8TX 


CURSEUR 




938Fi 


A9 


ni 




339 




LDA 


£ 1 




9391 i 


?ft 


•ft? 




340 




JSR 


SUPP 




9394: 


20 


24 


P3 


341 

342 




JSR 


RSTCRS 




93971 


AF 


F7 


PM 


343 




LDX 


CURSEUR 




939A: 


4C 


7C 


P3 


344 
345 




JMP 


R8LC3 




9390 1 


F8 






346 


R8LC2 


lhD( 






939E: 




FA 


91 


347 




CRX 


FINLIN 




93A1 : 


FO 


OP 




Mfl 

349 




BED 


RBLC4 




?3A3: 


BO 


on 


n? 


350 




LDA 


BUFFER,/ 




93A6: 


CP 


A? 




351 




CMP 


(*' 




73A8: 


DO 


F1 




332 




BNE 


RBLC2 




93AA: 


FO 


CF 




353 
354 




BED 


RBLCI 




93AC: 


AP 


-in 




355 


R8LC4 


LDA 


£0 




93AE- 


on 


F7 


91 


356 




STA 


CURSEUR 




9381 : 


4C 


38 


P9 


357 
35B 
359 
360 
361 




JMP 


SETCRS 






















362 










93B4 


70 


24 


V" 


363 


RDEBUT 


JSR 


RSTCRS 




9387 


A9 


no 








LDA 


£0 




93B9 


«n 


f 7 


9- 


345 




STA 


CURSEUR 






4C 


38 


P5 


364 
367 
368 




JMP 


SETCRS 





x>?V 



£* 



93BF: 


20 


24 


93 


372 


RF1N 


JSR 


RSTCRS 


93C2: 


AO 


F8 


93 


373 




LDA 




93C5i 


8D 


F7 


P3 


374 




STA 


CURSEUR 


93CB: 


4C 


38 


95 


375 
376 




JMP 


SETCRS 


93CB: 




F7 


95 


377 


RARRIERE 


LDA 


CURSEUR 


93CE: 


DO 


01 




378 




8NE 




93D0i 








37? 
380 
381 
382 

3B3 




RTS 


























384 








93D1 i 


20 


24 


93 


383 


ARRI 


JSR 


RSTCRS 


9304 i 


CE 


F7 


93 






DEC 


CURSEUR 


93D7i 


4C 


38 


95 


337 
388 

3B9 
390 
391 




JMP 


SETCRS 
























392 








93DA: 


20 


4E 


93 


393 


RAJOUTE 


JSR 


KEY IN 


93DD1 


8D 


FA 


95 


394 

.393 




STA 


CCMPT 


93E0: 


C9 


98 




396 




CMP 


£•98 


93E2: 


00 


01 




397 
398 




BNE 


RAJ1 


93E4: 


60 






399 
400 




RTS 




93E5t 


AD 


F8 


95 




RAJ1 


LDA 


FINLIN 


93EB: 


C9 


EF 




402 




CMP 


£»EF 


93EAi 


90 


06 




403 
404 




BCC 


RAJ2 


93EC: 


20 




FB 


403 




JSR 


BELL 


93EF: 


4C 


DA 


93 


406 
407 




JMP 


RAJOUTE 


93F2: 


EE 


F8 


95 


408 


RAJ 2 


INC 


FINLIN 


93F5: 


AE 


f'-i- 


95 


409 




LDX 


FINLIN 


93F8: 


SD 


FF 


01 


411 


RAJ 3 


LDA 


BUFFER-1 ,X 


93F8: 


PO 


00 


02 


412 
413 




STA 


BUFFER.X 


93FE: 


CA 






414 








93FF: 


EC 


F7 


93 


415 




CPX 


CURSEUR 


940 2: 


DO 


F4 




417 




BNE 


RAJS 




AO 




93 


418 




LDA 


COMPT 


940 7: 


9D 


00 


02 


4IP 




STA 


BUFFER.X 


940A: 


20 


ce 


94 


421 




JSR 


ECRIS 


940D: 


20 


60 


94 


422 




JSR 


RAVANCE 


94101 


4C 


DA 


93 


«3 

424 
425 
424 
427 




JMP 


RAJOUTE 
























423 








9413t 


20 


24 


93 


429 


RRETURN 


JSR 


RSTCRS 


9416 


AD 


F8 


93 


430 




LDA 


FINLIN 


941? 


8D 


F7 


93 


431 




STA 


CURSEUR 


94 !C 


20 




P3 


432 




JSR 


CRCALC 


94 IF 


E6 


25 




433 




INC 


OU 


942! 


20 


22 


FC 






JSR 


UTAB1 


9424 


AE 


F8 


93 


433 




LDX 


FINLIN 


9427 








436 


RET1 


JSR 


AUTOM 


94 2A 


20 


33 


!->-. 


437 




JSR 


*D333 


9420 


4C 


44 


D4 


438 

439 
440 
441 
442 




JMP 


*D444 
























443 








9430 


20 


24 


93 


444 


R0U1TTER 


JSR 


RSTCRS 


9433 


20 


42 


FC 


443 




JSR 


CLREOP 


9436 


AE 




95 






LDX 


CURSEUR 


94 39 


4C 


27 


„ 


447 
44B 
449 
430 
431 




JMP 


RET1 
























452 








943C 


AO 


F7 


P5 


433 


RSUPPRIH 


LDA 


CURSEUR 


94 3F 


CD 


FB 


95 


434 




CMP 


FINLIN 


9442 


DO 


01 




'5-,-. 




BNE 


SUPPI 


9444 


60 






456 
437 




RTS 




9443 


AP 


01 




438 


SUPPI 




tl 


9447 


4C 


37 


93 


439 
440 
461 
462 
463 




JMP 


SUPP 
























444 








944A 


20 


4E 


93 


463 


RTROUVE 


JSR 


KEY IN 


9440 


6D 


FA 


93 


464 
467 




STA 


COMPT 


9450 


20 


60 


93 


46S 


TR2 


JSR 


CHERCHE 


9453 


90 


17 




469 
470 




BCC 


TR1 


9453 


6E 




93 


47! 




STX 


SAW 


9438 


20 


24 


93 


472 




JSR 


RSTCRS 


943B 


AD 


F9 




473 




LDA 


SAW 


943E 


8D 




91 


474 




STA 


CURSEUR 


9461 


20 


33 


95 


473 




JSR 


SETCRS 



a suivre 



1 console ordmateur fi 
99/4A complet avec notice 
francafe 600 Frs 

1 cordon magnetophone Tl 99/ 
4A . 75 Frs 

i module gestion derapi 
99/4A: notice trancars tSOFrs 

1 module gestion de fichiers en 
francaisTI99: 180 Frs 

i module echecs en hvncetl 
pour Tl 99: 180 Frs 
1 5 cassettes programmes ewers 
pour Tl 99 - liste sur demande 

1 volume '50 programmes pour 
Tl 99' : 40 Frs 

1 volume "Pratique du Tl 99" ni- 
veau *1 : 40 Frs 

1 volume "Pratique du Tl 99" ni- 
veau 2 : 40 Frs 

1 volume "50 jeux & program- 
mes en Tl basic" pour Tl 99 
75Fre 

1 volume "50 jeux & program- 
mes en Tl basic" Tome 2 ; 
75 Frs 

1 volume "50 jeux & program- 
mes en Tl basic" Tome 3 
75 Frs 

1 volume 'LeT199al'affiche"20 
programmes basic : 40 Frs 

1volume"ExercicespourTI99* 
problemes & solutions basic : 
40 Frs 

1 clavier mecaniquepourZX81 : 
type machine a ecrire : 100 Frs 

1 imprimanteZX printer ZX81ou 
Spectrum + 5 rouleaux pa- 
pier ; 400 Frs 

1 cartemultifonctionZXSIavec 
notice trancais : 300 Frs 

1 extension 64 K pour ZX 81 + 
notice : 450 Frs 

1 interlace ZX 81/GP100 avec 
cordon + notice francais : 
400 Frs 

1 module traitement texte pour 
ZX 81 : 200 Frs 

1 cours de basic "Eduscope" li- 
vre + 5 cassettes : 250 Frs 

1 cours de programmation ZX 
81 : 2 volumes + 2 cassettes : 
100 Frs 

1 volume "Pratique du ZX 81" : 
35 Frs 

1 volume "Langage machine, 
trues, astuces ZX 81" : 35 Frs 

1 volume "Pilotez voire ZX 81" : 
35 Frs 

1 volume "Maitrisez votre ZX 
81* : 35 Frs 

1 volume "70 programmes pour 
ZX 81/Spectrum" : 35 Frs 

1 volume "Etudes pourZX81:20 
programmes en basic" : 35 Frs 

1 cassette ZX 81 "Data base" 
gestion de fichiers avec noti- 
ce : 60 Frs 

1 cassette ZX 81 "Gestion de 
compte bancaire" : 80 Frs 

1 cassetteZXSrZXTRriogiciel 
16/64 K 

1 cassette ZX 81 "Biorythmes" : 
75 Frs 

1 cassette ZX81 "Multifichiors": 
100 Frs 

1 cassette ZX 81 "Vu-file" ges- 
tion tichiers : 75 Frs 

1 traitementtexte"Scrpsit"pour 
TRS 80 K7 neuf : 300 Frs 

1 gestion fichiers d'adresses 
TRS 80 K7 neuf : 100 Frs 

1 gestion fichiers "In memory 
information" TRS 80 neuf ; 
100 Frs 

divers cassettes de jeux liste 
sur demande pour TRS 80. 
divers cassettes dejeux divers 
liste sur demande pour ZX 81/ 
ti 99/4 A 

Ces diffcrents materiels ou logi- 
ciels sont garantis en partait etat 

de presentation et fonctitinne- 

ment ; visibles en demonstration 

sur rendez-vous ; I'ensemble du 

materiel est revendu a 50 % reel 

de sa valeur actuclle en magasin. 

Pour tous renseignements 

contacter : M. GENNEQUIN : 

tel. (20) 72.11.74 LILLE 

VENDS ORIC 1 48K (6783) + Mod. 

Noir et blanc + livres sur ORIC + 

30 programmes. Valeur 3000 F 

vendu 2300 F J. M. LAVASTE34 bd 

Camille Flammarion 13001 MAR- 
SEILLE. Tel. (91) 50.14.28. 
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HEWLETT 
PACKARD 



la Regie 
aCcdcul 





;cippkz 




y La Regie \ 
/ a Calcul 

f Fdistributeur 



1 



Hewlett Packard < 
■^ PRANCE • 



Lecteurs de cane HP 82 1 04 

Imprimante HP 82 1 43 
Lecteur de cassettes digitales 
Module HP IL HP 82160 
Module X fonctJons HP 82180 



1.500 F 


a 


1.650 F 


1 1 


3-350 F 


1 ! 


4.250 F 


' i 


T.060F 


a 


500 F 


a 


3I0F 


n 


370 F 


n 


140 F 


[ i 


135F 


n 


II5F 


n 


235 F 


D 


1.2S0F 


a 


5.900 F 


D 


102 F 


i 


100F 


i ; 


I00F 


i : 


I98F 


n 


184F 


D 


295 F 


D 



Module mathernatiques 3041-15010 

Batterie HP 41 HP 82120 

Chargeur HP 41 HP 82066B 

Livreo cTapplieatjon |28 tilres) 

Jeu de 4 grilles designation HP 82152 

Clavier a membrane HP 82200 

PnxJurts compatibles HP 41 

Port expander 8 entrees et sorties 

Table tracante 4 couleurs tandy 

interface HP IL 

1Mb 

Programme HP 41 

Au fond de (a HP 41 

Autour de !a boucJe 

HP 41 extended (unction made easy 

Calculator tips and routines [en anglaisj 

The HP IL system: an introductory Guide 

to the Hewlett Packard interface loop 



M ATERTELS THOMSON TO 7 

Unrte centrale 

CodeurSECAM 

Lecteur enregistreur 

Extension memoire 16k 

Controleur com. 

Sonet jeux 

Memo Basic 

Imprimante thermique 

Cordon impnmante thermique 

Imprimante Impact 

Cordon imprimante impact 

Contr. lecL disquette 

Leer, drsqoette 

RouJeau papier thefmiquc 

Logiciefc Answare 
Budget familial 
Carnet cf adresses 
Gere* voire brblioiheque 
Gere* vos fiches 



BON DE COMMANDS 

TARIFS AU 17/2/84 

fSlom 

Adtesse 

Code Postal . ...... 

Vile 



Prix TTC 




2.480 F 


P 


600F 


1 i 


800 F 


n 


750 F 


n 


850 F 


1 1 


600F 


i i 


480 F 


1 1 


2.500F 


n 


290 F 


n 


2.500 F 


r i 


290 F 


n 


3 800F 


1 1 


2.600 F 


[ i 


75 F 


1 1 


450 F 


[i 


480 F 


D 


490 F 


lil 


525 F 


n. 



n peuvent etre modifies 



Ces prix sont indicalifs e 

sans preavis. 

Produits dlsponlbles dans la Umite de nos slocks 

en magasln. 

Participation aux frals de port et d expedition en 

recommande pour It?-, logidefs : + 30 F. 

Promotion complete : transporteur : 20 kilos + 185 F. 

LA REGLE A CALCUL : 
65/67, bd Saint <Jermain, 75005 PARI5 
T*L ; 325.68 W - Telex : ETRAV220064F/1303 RAC 
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zx spectrum 



Systtme personnel HEWLETT-PACKARD 41 

Prix TTC 
HP 41C + module quadruple HP 82 1 70 



1.965 F 

190 F 
360 F 



95 F 


1 1 


75 F 


n 


t 15 F 


i ; 


54 F 


f i 


54 F 


'. i 


160 F 


a 



III— 



GAMME SPECTRUM 

Spectrum 48KPAL 
Modulateur noir et Wane 
Adaptateur Peritel 
Imprimante pour ZX81 
et SPECTRUM alfacom 32 

LogkJeb 

Simulateur de vol 

Othello 

Chess 

Maths 

Histoire 

Devpac assembleur/dtsassembleur 

Bincfe 
ZX8I 

GammeZXBI 
ZX8I 

Extension I6K 

Logkiels 

tehees 

Simulation de vol 

Gestion compte bancaire 

Vu calc 

Vufile 

ZX multifichier 

Haute resolution (soft! 



Texas Instruments 



580 F 


; 1 


360 F 


' 1 


95 F 


n 


95 F 


n 


95 F 


i ■ 


II0F 




1I0F 


n 


150F 


■ i 


95 F 


■ i 




CONSOLES ET ACCESSOIRES 

/, OnflnjHnuT famfflale n 99/4 

rlirectement compatible a vc. entree 
peri-television 

• M',diil. t rcuf PAL-Ulir 

• Modulateur SECAM adaptable sur 

4 Manuel Tt 99/4 A 

• Manuel assembleur 

• ' aMe n.nson magneto-* 

• Pairem.tnetirsjeiix 

• SyntMtiseui de parole 
"Solid State Speech TM" 

• Magnetophone cassettes 
[7VA 33,33%] 



I'm/ I [( 




I.I90F 
743 F 


! 1 
1 1 


500 F 
54 F 
252 F 
I50F 
255 F 


1 1 
I 1 
□ 

1 1 
1 1 


680 F 


i : 


496 P 


i i 



• 1 apple ll c 

• 1 disk II" svec controleur 

• 1 monrteurll 

• ? togidel apple logo standard 

Logioeb APPLE IT sur disquette 



Apple logo standard 
Apple superpilot 
Logiciel Pascal II 

Logfciets ediciets sur dtsquettes 
pour APPLE IT et APPLE H 48 K 



Maths I: 

Formes mdetennintfes, li mites. 

logarithmes et exponentjelles 

Maths 2: 

Suites et integrates 

Maths3: 

Trigonometric 

N ombres complexes 

Physique! : 

Induction et condensateurs 

Produits vect oriels 

Physique 2 : 

Circuits osciJIants (parution : 

janvier 1984) 

EDI-LOGO 

EDI-LOGO. un langage ideal pour de 
jeunes enfants [meme s'ils ne savent pas 
encore lire grace a la carte Porte-Parole 
qui fait parler I'ordtnateur) 
Le fameux langage LOGO, en francais, 
dans la version originate- developpee 
a rUmversitc amencaine M.I.T. 

PERIPHERfOUES 

L cs p£r iph e r iq i jes f o nc tion n en t 
uniquement en etant integres dans 
le system e d' ex pan si on p(- ripherique 
PHP 1200. 
O Carte interface f?S 232 : une sortie 

parallel? et une sortie serie 
O Unite integree de disquette simple 

face/simple densite 5" 1/4 

• Carte d'extension mev [RAM) 32 K 

• Carte P-Code : pcrmet ^execution de 
programmes ecnts avec le systcme P 

• Unite de disquette cxterne 

EDUCATION 

• Addition-Substractfon I 

• Addition-Substraction II 

• Acid i ti on -Canon 

• Basic par soi-meme 

• Division -demolition 

• Division I 

• Dragon Savant 

• Early Reading 
<> Jeux d'En (reprise 

• Meteor muKfpBcatfon 

• Mission mofns 
t j Multiplication I 

• Music Maker 
O Numeration II 
( i Le basic eMndu par sof-fflefne 

O TJ-Loqo II 
LOISIRS 

;■■. Bbsto 
A Car Wan 

• Connect four 

,'. f .Mjltl.lll 

• jeux viden it 

a Munch Man 

• Othello 
A Parsec 

■■ I llicill.iffc 

.'. n Invaders 

• tombstone dty 

• Y.ihf/rr 
Ailvi r.i.ir" 

• Jeux Retro II 



Prix TTC 




1.600 F 


1 1 


1.857 F 


1 i 


1.877 F 


D 



Prix TTC 




295 F 


I 1 


295 F 


LJ 


295 F 
295 F 


LI 

D 


295 F 

295 F 


n 
D 


295 F 


l.i 



Prix T.T.C 




II30F 


l.i 


2 080 F 
990 F 


[1 

! 1 


2.200 F 


■• 1 


4.150F 


D 



134 F 


n 


134 F 


1 1 


134F 


1 1 


66F 


n 


134 F 


i i 


134 F 


n 


134 F 


i i 


134 F 


n 


66F 


: i 


134 F 


[) 


134 F 


i l 


134 F 


1 1 


I88F 


I i 


134 F 


I I 


66F 


i I 


795 F 


i I 



134F 


1 1 


134F 


1 1 


134 F 


1 1 


188F 


1 1 


134F 


I 1 


252 F 


1 1 


188F 


1 1 


252 F 


1 1 


134 F 


1 1 


188 F 


I 1 


I34F 


1 1 


134 F 


1 1 


134 F 


1 1 


I34F 


! 1 



EDI-LOGO. un langage fan pour 
apprendre en s'amusant {rmformatique. 
la kxjique oil les mathemabques]. 

PCMTTE PAROLE 

Vot/e micro-ordinateur peut parler I 

Ecoute? ! Une voix claifc et art»cuk*e 

vous parte en francais. 

Essayez-le avec EDI-LOGO et twent6t de 

nombreux autres programiTies |les 

paroles sont stockecs sur vos dhquetBes 

Ediciel) 

Logiciel Vin pour APPLE II et ir 

L'organisateur 

Le fedaeteur 

Le correcteur 

Dossier 

Geser Igesuon par le seui! 

de rentabiine) 



1.490 F 


D 


Prix TTC 




1395 F 


D 



2 195 F 
1 695 F 
1.695 F 
2.500 F 

450 F 



Locigicb CIEL BLEU pour APPLE M et ir 
sur dtsquettes 

Le Basic explique 

Au cceur du Basic 

Compwddrtion 

Render -vous 

Roseau 

Controleur aenen 

Fraaions 

Decimales 

Anthmetique 

Savoir compter 

Savoir ecrtre 

Perception 

Chcrchcz la difference 

Ai.igmcntez voire vocabulaire I 

Augmenlez voire vocalxilaue II 

Suite de nombres 

Concentration 

Pareil ou different 

Mots caches 

Mots caches geographic 

Mots croises et mots secrets 



ORGANISATION 

• Fichierd'adresscs 

• Microsoft Multiplan 
" Conscil financier 

• Siatisiics 
PROGRAMMATION 

• Editor assembler 
O Extended basic 
A Mini memory 

• Programming aids III 

• Terminal Emulator II 

AUTRES LOGK3ELS 



820.93 F 


Q 


937.50 F 


I 1 


680.20 F 


D 


55 1.20 F 


1 1 


293.20 F 


i 1 


793.20 F 


[1 


S35.46F 


i I 


539.46 F 


I I 


680.70 F 


1 1 


4 10.47 r 


i i 


539.46 F 


n 


410.4/r 


1 1 


293,20 F 


1 1 


293.70 F 


( i 


793.20 F 


M 


293.70 F 


n 


293.20 F 


a 


293.20 F 


1 1 


293,20 F 


1 1 


293,701 


1 1 


293,20 F 


1 1 



I'r,.. I II 

695 F 

800 F 
66F 

1H8F 



500 F 


(1 


500 F 


1 1 


500 F 


1 1 


249 F 


D 


500 F 


i I 



OTi-Calc 




375 F 


1 1 


O Gestion pnvrc |IT xpansonj 


375F 


1 1 


• lntrod.au 1199/4(1) 




I34F 


1 1 


* Introd. au TI 99/5 |7.| 




134 F 


I 1 


* Les techniques des progr- 








dejeux 1 1 ) 




I34F 


1 1 


* Les techniques des proqr. 








dejeiix (2) 




131 F 


11 


' Jeux <le memoire 




1 34 F 


1 1 


• Ponctuaiion en francais 




66 F 


I 1 


,'. ■ilU'l)((lt 




252 l 


I 1 


• A oven ture land 




66F 


I 1 


• Mission impossible 




66F 


1 1 


• Voodoo Castie 




66F 


1 t 


• The count 




66F 


! 1 


• Strange Odyssey 




66 F 


1 1 


• MiMery Fun House 




66 F 


1 1 


• Pyramid ol Doom 




66 E 


1 1 


• ' In.-.T |..V.fl 




66F 


1 1 


• Savage island l&l 




66F 


1 1 


• Golden Voyage 




66F 


1 1 


NOUVEAUX LOGICIELS TEXAS 


• liWnlw 




Retoui ■'■*> en. if 


■ i foppei 


& Demon attach 


a Star track 


A Mash 


.'. U, 111. Ml.. T 


fl Burger time 


.-. rreasure island 




' 1 FIN FEVRIER 


• DISPONIBLE 


A MARS 


• Ml FEVRIER 







J 



